AUSGABE & 
/() Markt&echnik 


S ON DER HH EHI 
Grundlagen 


Mi Schritt für Schritt: 

Der leichte Einstieg in 

die Basic-Programmierung 
EB Know-how: 

Einbindung von System- und 

Assembler-Routinen 
EM Professionell: 

Hardware- 

a rammierung 

ENTA 


LS 


EM Compiler: 
Was leisten AC-, 
GFA- und Hisoft-Basic 
Bi Utilities: 
Der Profi-File-Requester 
für alle Zwecke 
 Unvorstellbar: 
Top-Zeichenprogramm 
in Basic 


Mic ra 
DISKETTE 


ERHÄLTLICH 


IGA 


Software zum Taschengeldpreis 


Amiga Extra Nr. 1: 

‚Grafik I 

Drei Programme, die die 

außergewöhnlichen Gra- 
/iklöpigkeiten des Amiga 

nutzen! 

Bestellnr, 38708 


‚Amiga Extra Nr. 6: 
‚Audio Worx 

Ihr privates Sampling- 
‚Studio, 

Bestell-Nr, 38748 


‚Amiga Extra Nr. 7: 
Erdkunde I 
Die Reit 


Zeitschriften . Bücher 


Markt&@Technik 


‚Amiga Extra Nr. 4: 
‚Grafik Il 
Spelenisch Bobs erzeu- 
gen. IFF-Bilder werden 
Zu Bobs und Images, 
Genarieren von) 
animierten Jeons 

par excellence, 
Ne, 38725 


‚Amiga Extra Nr. 12: 
Spiele 


‚Amiga Extra Nr. 9: 
Sonix-Hitkiste 

, in, Soni% 
editierbare und digı- 
k Geräusche 
und Effekte für 
eigene Musikstücke 
Bestell-Nr. 88753 


‚Amiga Extra Nr. 2: 
Disk Utilities I 


‚Amiga Extra Nr. 5 
Spiele 


‚Amiga Extra Nr. 10: 
Disk-Utilities Il 


‚Amiga Extra Nr. 8: 
Spiele 
alt. € 


‚Amiga Extra Nr. 13: 

Regnum 

Regnue ist ihr K h 
Site 


'e ausgeklügelte 


‚Amiga Extra Nr. 11 
Karteikasten 


‚Amiga Extra Nr. 8 


‚Amiga Extra Nr. 16: 
Englisch I 


Erdkunde Il 


Amiga Extra Nr. 17: 
Mathematik 


Amiga Extra Nr. 18: 
I{Geometrie) Mathematik Il (Algebra) Physik I 


‚Amiga Extra Nr. 19: 


der N 


keit und die 


INFO-COUPON 


Bitte senden Sie mir Ihr 
aktuellen Computerbücl 


ern und So) 


"Unverbindliche Preisempfehlung 
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Ihrem Buchhändler, in 
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Software - Schulung 


6 Computer-Fachgeschäften 
und in den Fachabteilungen 
der Warenhäuser 


EDIToRlAL 


Kauder- 


welsch 


Beim Betrachten der ersten Basic- 

Listings drängt sich die Frage auf, 
was steht denn da? Zugegeben, auf 
den ersten Blick erscheint alles ein we- 
nig konfus. Aber zum Verständnis die- 
ser Sprache kommt uns entgegen, daß 
viele Befehle der englischen Sprache 
entnommen sind. Mit etwas Geduld 
werden die Listings immer klarer. 

Gerade Anfängern ist die Compu- 

terwelt ein Buch mit sieben Sie- 
geln. Nach dem Einschalten ist die »Ki- 
ste« leblos und kann nur in Aktion tre- 
ten, wenn sie entsprechend »gefüttert« 
wird. Selbstbootende Disketten brin- 
gen dabei die wenigsten Probleme. 
Schwieriger wird es, wenn mit der Pro- 
grammierung dieser Wundermaschine 
begonnen werden soll. Natürlich bietet 
sich sofort die mitgelieferte Amiga-Ba- 
sic-Diskette an. Warum Basic? 

Zum einen ist diese Sprache so- 

fort verfügbar, und zum anderen 
ist sie wegen ihrer leichten Handha- 
bung für Einsteiger geradezu prädesti- 
niert, Nicht umsonst wurde der Name 
Basic (Beginners All Purpose Symbo- 
lic Instruction Code) von den Entwick- 
lern gewählt. 
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Viele Profi-Programmierer haben mit 
dieser Sprache begonnen und sind 
Stufe für Stufe zu den höher entwickel- 
ten Programmiersprachen geklettert - 
auch wenn es viele von ihnen nicht 
mehr zugeben wollen. Um Ihnen die- 
sen Weg zu erleichtern, finden Sie in 
diesem Sonderheft einen ausführli- 
chen Basic-Kurs, der Ihnen Pro- 
grammierung und 
Umgang mit dieser 
Sprache näherbringen 
soll. Wenn Sie jetzt die 
Nase rümpfen, weil Sie 
sich schon mit Basic 
beschäftigt haben und 
keinen »Einstieg« mehr 
brauchen, schlagen 
Sie nicht einfach das 
Heft zu und legen es 
beiseite. Für den fort- 
geschrittenen Anwen- 
der bieten wir in der 
Rubrik »Know-how« 
vielfältige Methoden, 
wie mit Basic geschickte Zugriffe auf 
das Betriebssystem verwirklicht werden. 
Wenn Sie sehen wollen, welche 
Techniken professionelle Program- 
mierer verwenden, dann schauen Sie 
sich die Listings im Heft einmal genau- 
er an. Sie werden interessante Routi- 
nen für Ihre eigenen Programme finden. 
Das vermeintliche Kauderwelsch ver- 
liert schnell seinen Schrecken, wenn 
man sich damit beschäftigt. 


Ihr 
Andreas Greil 
(Redakteur) 
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.  Grundl Ger Was sind 
et = = Compiler? 
Was tun sie? 
6 Zum Abheben Wer braucht 
Mit der Verwendung von Libraries erhöhen Sie die sio? Diese 
Geschwindigkeit Ihrer Basic-Programme. Zu Fragen 
beachten sind dabei die verschiedenen Strukturen BERDIWONEE 
dieser Sprache. „Der Basic- 
Nachbren- 
. we a ner« auf 
12 Programmieren wie die Profis 
Im vorhergehenden Artikel haben Sie SEITE 70 \ 


Grundsätzliches zu den Libraries erfahren. 
Nun lassen wir einen erfahrenen Software- 
Entwickler zu Wort kommen. Er verrät, wie Sie 
die Fülle der Befehle aus den Bibliotheken in 
eigene Programme einbinden können. 


18 Fundamentbau [= 
‚Amiga-Basic ist eine aufden Amiga abgestimmte 
‚Programmiersprache und leicht zu erlernen. 

In diesem Kurs vermitteln wir Ihnen fundamentale 
‚Kenntnisse, die Sie zur Entwicklung eigener 
‚Programme benötigen. Ein Versuch lohnt sich. 


51 Der CPU auf den Pelz gerückt 1] 


Machen Sie Ihren Basic-Programmen Beine. 

Durch Einbindung der Muttersprache des 
Computers - Assembler - nutzen Sie dessen rasante 
Geschwindigkeit, und das auf einfachste Art und 
Weise. 


52 Druckerkunst 59 Rasende Sprites :] 
Ist für Sie die Druckeransteuerung ein Buch mit Die schnellsten Sprites sind jene, die von den 
‚sieben Siegeln? Wenn ja, dann erfahren Sie in Coprozessoren verwaltet werden. Diese Hardware- 
diesem Artikel, was der LPRINT-Befehl bedeutet, Sprites lassen sich mit dem Basic-Interpreter kaum 
welche Escape-Sequenzen und welche alternativen unterstützen, aber es geht doch. 
‚Ansteuerungen es gibt. = = 5 
= 62 Alternative Manipulationen ] 
57 Verblüffende Effekte u Ein jedes Programm lebt mit der grafischen 
In den meisten Fällen ist für faszinierende Darstellung. Dazu werden sogenannte GELS 
Farbspielereien ein Baustein des Amigas benutzt. Mit einer Sorte dieser grafischen Elemente - 
verantwortlich - der Copper. Selbst in Basic den virtuellen Sprites - beschäftigen wir uns in 
läßt sich dieser Baustein programmieren. diesem Artikel. 


Alle reden von 
Strukturen. Wir 
wenden sie an. 


SEITE6 
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»Golden 
Paint Pot« - 
ein Zeichen- 
programm 
der Spitzen- 
klasse. 
Sehen Sie, 
wie schnell 
Basic sein 
kann. 


SEITE 103 


‚info 
Salden Faint.Pot. inte, 
NR: info 


Basic ist langsam und unkomfortabel. Daß dies nicht immer so 
sein muß, zeigt unser Artikel »Alles auf einen B(K)lick«. 

Der dort vorgestellte File-Requester wird auch Sie 

verblüffen. Lesen Sie ab SEITE 94 


I NHALT 


67 BOB-Fahrt [ 


Mit Wintersport hat dieser Bericht nichts zu tun. 
Vielmehr wollen wir Ihnen die Fähigkeiten der Blitter- 


Objekte näherbringen. 
Comer 


RETTEN 


70 Der Basic-Nachbrenner 
Ohne Compiler kann man sich bei den meisten 
Basic-Programmen einem müden Gähnen nicht 
erwehren. Doch was sind Compiler genau und wie 
arbeiten sie? 


75 Pack den Tiger in den Tank 
Der erste Beitrag - von insgesamt drei - zu den 
gängigsten Compilern befaßt sich ausschließlich mit 
dem AC/BASIC-Compiler, seinen Eigenschaften und 
seinem Einsatz in der täglichen Praxis. 


82 Grenzfälle 
Der Compiler von HiSoft bietet laut Hersteller vieles, 
‚Hält er auch, was er verspricht? Ein erfahrener 
‚Programmierer gibt seine Beobachtungen preis, 


87 Der Befehls-Riese 
Über GFA-Basic gibt es ge- 
teilte Meinungen. Die einen 
schwören darauf, die anderen 
belächeln es, Was istnun 
wirklich dran an der 
Programmiersprache? 


Von der Mausabfrage bis zur 
Textausgabe haben wir viele 
nützliche Unterroutinen 
zusammengestellt. 


94 Alles auf einen B(KJlick Bi 


Ein komfortabler und leistungs- 
fähiger File-Requester. Wir 
können Ihnen diesen lang- 
ersehnten Traum erfüllen. 

A 


EN MAN Y 
103 Little Kandinsky 


Ein Malprogramm im Extra-Halfbrite-Modus mit allen 
‚Schikanen und das alles in Basic? Sie werden 
staunen, so etwas gibt es. 


119 Das Spiel der alten Ägypter Hu 


Vor über 3000 Jahren erfunden und jetzt auf Ihrem 
Amiga realisiert - Kalaha, das Spiel aus Ägypten. 


3 Editorial 
126 Checksummer | 


69 Impressum 


All Programme ausrkeinmiteinem IEN-Symbotinden Sie auchautder 
Programmsenie.Disete zu diesem Sonderheft 


Strukturen in-Amiga-Basic Zu m 


Abheben | 


Machen Sie Ihren 
Listings Beine. Mit 
Hilfe von Libraries 
erhöhen Sie die Ge- 
schwindigkeitIhrer 
Basic-Programme 


enorm. Bevor Sieje- 
doch abheben, soll- 
ten Sie sich um 
die verschiedenen 
Strukturen des Ami- 
ga-Basic kümmern. 
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-und#EIBRARY« erläutert. Aber 


Von Jürgen K. Singer 


ie haben sich entschlos- 

sen, in ‚Ihrem Basic- 

Programm die Vorteile 
der’Amiga-Libraries zu nutzen, 
denn. schließlich versprechen 
sie ‚einen erheblichen Ge= 
‚schwindigkeitsgewinn beim’Ab- 
lauf Ihres Programmes. Um die 
Library-Funktionen des Amiga 
von Basic aus Verwenden zu 
können, sind einige Vorberei- 
tungen nötig. Dabei bereiten 
die entsprechenden »bmap«- 
Dateien, die Sie zur Verfügung 
haben müssen, noch.den ge- 
ringsten Aufwand. Diese Datei- 
‚en teilen dem Amiga-Basic mit, 
Welche Parameter von dieser 
Fünktion in welchem Register 
erWartet werden. Doch darauf 
müssen Wir.hier nicht näher ein- 
gehen, dennidies wird in Ihrem 
Basic-Handbueh, ausführlich if 
Kapitel 6.3 sowie bei den Be- 
schrelbungennder Anweisun- 
gen »DEGEARE FUNCTION« 


mit den Funktionen selbst ver- 
fügen wir nur über die Hälfte 
der Miete. Die andere Hälfte 
verbirgt sich in den Parametern 
der Funktionen, denn nicht sel- 
ten handelt’ 8s,sich dabei um 
Zeiger auf Strukturen. 

Da nun Basi@eiherseits über 
keine Datenstruktürenuverfügt 
und andererseits auchnoehge- 
wisse Eigenheiten von Basic 
bei der Speicherverwaltung'zu, 
beachten sind, lohnt es sich, 
darüber einige grundsätzliche 
Gedanken zu verschwenden. 

Beginnen wir mit(dem ein- 
fachsten Zugang zu Strukturen. 
Diese haben eine gewisse Län- 
ge undienthalten Angaben, die 
‚wir der Einfachheit halber=Mit- 
glieder« nennen wollen. Diese 


‚selbst sind entweder eineeinfa- 
che Variable, ein Feld, eine an- 
dere Struktur oder ein Adreßzei- 
ger. Alle diese »Mitglieder« be- 
sitzen eine bestimmte Länge, 
daher ist es leicht möglich, sich 
die Lage dieser »Mitglieder« re- 
lativ zum Strukturanfang (als 
sogenannten Offset) zu berech- 
nen. Nehmen wir als Beispiel 
die »NewWindow«-Struktur, wie 
sie in C-Syntax in Listing 1 be- 
schrieben ist. 

Leider können wir nichtiein- 
fach eine Zeichenkettaoder ein 
Feld deklarieren, und die nöti- 
gen Werte der»Mitglieder« der 


Struktur in dieses Feld schrei- 
ben, da Basic die unangeneh- 
me Eigenschaft besitzt, Felder 
und Zeichenketten während 
des Programmablaufs im Spei- 
cher zu verschieben. Daher 
kann man sich niemals sicher 
sein, eine solche definierte 
Struktur nach einiger Zeit im- 
mer noch an der gleichen 
‚Adresse zu finden. 

Wir müssen uns deshalb den 
erforderlichen Speicher für 
Strukturen (und auch für Zei- 
chenketten, die von Strukturen 
aus angesprochen werden) mit 
Hilfe der Library-Funktion 
»AllocMem&« selbst holen. Ent- 
sprechend muß auch vor Been- 
digung des Programmes dieser 
Speicher mit Hilfe von »Free- 
Mem« wieder an das System 
zurückgegeben werden. 

Das Schreiben in diesen 
Speicherbereich, der von uns 
nun mit der Struktur identifiziert 
wird, geschieht durch POKE- 
Befehle. Dabei bildet der von 
»AllocMem« gelieferte Wert die 


Zuweisungen 


Basisadresse, auf die unsere 
Offset-Werte addiert werden 
müssen, um auf ein bestimm- 
tes Mitglied zugreifen zu kön- 
nen. 

Nun könnten wir die errech- 
neten Offsets in der folgenden 
Form benutzen: 


POKEW (BasisAdresse& 
+ V6) ‚120 


Diese Syntax ist nicht son- 
derlich aussagekräftig, denn es 
ist nicht sofort offensichtlich, 
welchem Strukturmitglied der 
Wert 120 zugeordnet wird. Da- 
her bietet sich folgendes Vorge- 
hen nach Listing 2 an: Wir wei- 
sen kurzen Ganzzahl-Varia- 
blen, die wir entsprechend den 
vorliegenden C-Strukturen be- 
nannt haben, die errechneten 


Offsets zu. Dabei ist beider Na- 
mensgebung die folgende Va- 
riation sinnvoll: Dem eigentli- 
chen Strukturnamen stellen wir 
noch zwei Buchstaben voran, 
die auf die Struktur hinweisen, 
zu der diese spezielle Offset- 
Variable gehört. Diese Vorge- 
hensweise ist angebracht, da 
beispielsweise das »Mitglied« 
Flags sowohl in der Struktur 
»NewScreen« als auch in der 
Struktur »NewWindow« auftritt. 
Um unsere Offsets überall im 
Programm, also auch in Unter- 
programmen verfügbar zu ma- 
chen, sollte man sie außerdem 
noch mit Hilfe der »DIM SHA- 
RED«-Anweisung als globale 
Variable definieren (Listing 1). 
Auf diese Art werden auch die 
Library-Strukturen in den nach- 
folgenden Artikeln über »gra- 
Phic Elements«, »Double Buffe- 
ring« und »Superbitmaps« be- 
handelt. 

Ein ähnliches Vorgehen 
empfiehlt sich auch für die von 
den Library-Funktionen be- 
nutzten symbolischen Konstan- 
ten. Falls Sie selbst mit Hilfe der 
Amiga-Libraries in Basic pro- 
grammieren wollen, werden Sie 
nicht umhin können, sich die 
Beschreibungen der benutzten 
Strukturen und Konstanten zu 
besorgen. Eine gute Quelle 
hierfür ist das »Amiga ROM 
Kernal Reference Manual«, Ab- 
schnitt »Includes and Auto- 
docs«. 

Die obigen Betrachtungen 
deuten schon an, daß sich die 
Verwaltung von Strukturen her- 
vorragend für die Automatisie- 
rung eignet. Da der hierfür er- 
forderliche Programmierauf- 
wand keinesfalls gering ist, le- 
gen wir in Listing 2 nur das prin- 
zipielle Vorgehen dar und über- 
lassen die professionelle Imple- 
mentation Ihrer eigenen Fanta- 
sie. Um uns hier die Verwal- 
tungsarbeit zu vereinfachen, 


benutzen wir zur Beschaffung 
von Speicher am besten die 
Funktion »AllocRemember«, 
die nicht nur Speicher allociert, 
sondern auch noch eine verket- 
tete Liste des belegten Spei- 
chers unterhält. Damit kann der 
gesamte belegte Speicher am 
Programmende mit einem ein- 
zigen Aufruf der Systemroutine 
»FreeRemember« wieder frei- 
gegeben werden. Zu dieser 
Verwaltungsarbeit wird die er- 
ste globale Variable »RE- 
MEMBER.KEY« benötigt. Bei 
den Strukturen sind zwei Fälle 
zu unterscheiden: 


Variablen 


Zum einen muß definiert wer- 
den, wie die entsprechende 
Struktur auszusehen hat. 

Zum anderen müssen dann 
auch »Verkörperungen« dieser 
‚Struktur implementiert werden. 

Bei der Definition merken wir 
uns, welche »Mitglieder« die 
Struktur besitzen und an wel- 
cher Stelle diese innerhalb der 
Struktur zu finden sind. Dazu 
dient das globale Feld »STRUCT. 
MEMBERS«, das den jeweili- 
gen Abstand eines »Mitglieds« 
vom Beginn der Struktur aus 
enthält, Das Unterprogramm 
»DEFSTRUCT: setzt die jeweili- 
gen globalen Variablen auf den 
Anfangszustand. Die Unterpro- 
gramme »CHAR«, »VOID.PTR« 
etc. sorgen dafür, daß die jewei- 
ligen Abstände vom Struktur- 
start eingetragen werden. Das 
Unterprogramm »ENDSTRUCT« 
überträgt diese Liste in den Sy- 
stemspeicher, damit diese In- 
formationen den späteren Ver- 
körperungen der Struktur zur 
Verfügung stehen. Die globale 
Variable »STRUCT.STATUS« 
steuert dabei das Verhalten der 
verschiedenen Unterprogram- 
me »CHAR, VOID.PTR« etc. wie 
folgt: 


Werden diese Unterprogram- 
me innerhalb einer Strukturde- 
finition aufgerufen, so tragen 
sie die jeweilige Position in die 
entsprechende Strukturliste 
ein. Werden ‚sie dagegen au- 
Berhalb einer Strukturdefinition 
aufgerufen, so reservieren sie 
den benötigten Speicherplatz 
für den jeweiligen Eintrag. Um 
nun von einer Strukturimple- 
mentation .aus die zugehörige 
Strukturdefinition zu finden, ist 
der erste Eintrag einer Imple- 
mentation immer ein Zeiger auf 
die passende Definition. Die mit 
diesen Unterprogrammen im- 
plementierten Strukturen kom- 
men von der Syntax her denen 
der C-Sprache schon sehr na- 
he. Weniger erquicklich ist die 
Situation jedoch bei den Wert- 
zuweisungen. Auch diese kön- 
nen nur mit Hilfe von Unterpro- 
grammen erfolgen, wobei auch 
noch unterschieden werden 
muß, ob Werte von einer Varia- 
blen an eine Struktur überge- 
ben werden sollen (ASSIGN. 
TO) oder umgekehrt (AS- 
SIGN.FROM). Bei diesen Zu- 
weisungen ist, wie auch beiden 
anderen Struktur-Unterpro- 
grammen zu beachten, daß kei- 
nerlei Fehlerüberprüfungen un- 
ternommen werden, da diese 
den Programmumfang doch 
erheblich hätten ansteigen 
lassen. Die beiden Unterpro- 
gramme »CSTRING« und 
»BSTRING« dienen nur dazu 
Basic-Zeichenketten in C- 
Zeichenketten (0 am Ende) - 
und umgekehrt - umzuwan- 
deln, da alle Zeichenketten in- 
nerhalb von Strukturen den O- 
Konventionen folgen. 

Nun steht einer Verwendung 
von Libraries in Ihren Basic- 
Programmen nichts mehr im 
Wege. Sie werden merken, daß 
der Programmablauf erheblich 
in der Geschwindigkeit gestei- 
gert wurde. ag 


Programmname: Windemo 
Computer: A500, A1000, 
A2000 mit Kickstart 1.2 & 13 
Sprache: Amiga-Basic 


sehr einfacher Umgang mit Strukturen in 


: AnigeDos, 
Version 1.0 (3-Jan 


Offset (in Byte)(in Worten) 


0 0 
2 ı 
4 2 
& 3 
8 4 
% 45 
10 5 
14 = 
; 38 9 
22 1 
26 13 
30 2 
34 17 
38 pt 
40 20 
42 21 
4 22 
46 23 
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GRUNDLAGEN 


EN 
SA Darın a - 2 
RR LIBRARY "intuition.library” ' benötigt file 
> > intuition.bnap< < 
EN LIBRARY "exeo.librany” 
NO > >exeo.bnap< < 
WONG DECLARE FUNOTION OpenWindowä( mw ) LIBRARY 
38 HA\ DECLARE FUNOTION AllooMenk( bytes, flags ) LIBRARY 
39 Ra ! Nevhindov Struktur 
AOL DIN SHARED nwLeftEdge, nwTopEdge, nwhidth, nwleight, 
NÖ metatiren 
DIM SHARED nwBlockPen, nYIDCHPFlage, nWFlags, nuFiretöndüet 
Kan vi SHARED nwOheckMark, nwTitle, nwScreen, nwBitMap, 
N nuinWidth 
ABO DIM SHARED nwMinkeight, nwMaxkidth, nwNaxeight, nwType, 
SO NewlindowSige 
AA ae! Konstanten 
4O\WR | DIM SHARED NULLE 
36 20 NULLE = 0% 
\ DIM SHARED NEMF.CLEARK, MEMP.CHIP&, MEMF,PUBLICK 
a0 MEHF.OLEARK = 65936& ' = 216 
ARD MENP.CHIPL = 2 
DW | MEMF.PUBLIOK = 1 


' benötigt file 


(6 WINDOWSIZING& = 18 
\HO\ ACTIVATER = 4096& 
"10 | WBENCHSCREEN = 


NewWindowStruct 

mw& = Alloofen&( NexWindowSize, NEHR.OLEARE OR 
MEHR.PUBLIOE ) 

IF (muß = 0&) THEN END 

Flags& = WINDONDRAG& OR WINDOWCLOSE& OR WINDONSIZING& 
Flags& = Flags& OR ACTIVATER 

POKEW (nw&+nwLeftEäge), 20 
POKEW(nw&+nwTopEäge), 30 

POKEW(nwänwWidth), 200 

POKEW(nu&rnuHeight), 120 

POKE (mw&nwDetailPen), 0 


BSR PORE (nw&rwBlockpen), 1 

TO LE POKEL(nwEmWIDCHPFlags), NULL& 
Ek POKEL(nw&HnWFlags), Flagsk 

72 A POKEL(nvEHmWPLrstGadGet), NULLK 

Tine FOKEL(nw&+nwCheckMark), NULL& 

74 gP POKEL(nw&+nwTitle), NULLE 

la POKEL(nWw&HnWBereen), NULLE 

76 Uo POKEL(nwänwBitMap), NULL& 

7735 POKEN(nw&enuNinWidth), 30 

Tau FOKEN(nwEHmWMinHeight), 50 

7a W  FOKEN(nwEHmMaxWädth), 600 

BO 15 POKEN(nw&rnmNaxtieight), 200 

BU KT POKEW(nwHmwType), WBENCHSCREEN 

nk Wink = Openkindork( nu ) 

3 ae Freellenk nuk, NewWindowßize 

BAM WHILE NOT MOUSE(O) : WEND 

BD Closehindowk Wink 

86 830 zND 

a7 23 SUB NewhindowStruet STATIC 

BB mwleftkige = 

nwTopkdge 

wWidth 

auHeight 

nuDetailPen 

nwBlockPon 

AWIDCNPFlags 

muFlags 

mwPirstGadget 

AwCheckMArk 

muTitle 

SI  nSereen 

200X7  mwBitkap 

ML Pd  mMinisdth 

IC muinkeight 

30  mllaxiidth 

104 86 mulaxeight 

2570 me 

106 ck NewWindowsize = 48 

307 Ind 2 SUB 

(€) 1990 Mar 


Listing 1. Zugriff auf »NewWindow«- 
Struktur von Basic 


o 


EIERREIRELE 
BERBBESESSS 


Progranmautor: Jürgen K. Singer 


W830) ' File: Struot.b: 
20 ' Status: Lauffählg 

3l ' Kompatibel: A0-Basio: Nein 
und! HiSoft-Basic: Ja 


Sprache: AmigaBASIC 
Systen: AnigaDos, Kick 1.3 
Version: 1.1 (3-Jan-90) 


= 
= 


Anregungen zur Automatisierung der Strukturbehandlung 


285235 


7 


ON BREAK OOSUB Breakliit 
* ON ERROR GOTO Re: 
! Voreinstellungen 
OPTION BASE 0 
DEFLNG a-2 
' Externe Funktionen 
LIBRARY *exeo. library” 
LIBRARY "Intuftion.Librany” 
DECLARE FUNCTION AllooRemenber( RenenberPtr, size, Flags) 
LIBRARY 
|DECLARE FUNCTION Openkindow( nwin ) LIBRARY 
DEF FNADDROF( x ) = x + SIZEOFLONG 

DIN SHARED STZEOFLONG, MAX MEMBERS? 
2! Konstanten 
\SIZEOFLONG = 44 


Nom 


IE IETRIECGDTZETEE 
ZeRL 


$ 


2EHB| max. venmenss = 

27. Na ' globale Variable 

28 F2 DIM SHARED STRUOT.MEMBERS(MAX.NEMBERSE) 

29 oP_ DIM SHARED REMENBER.KEY, STRUCT. LENOTH,STRUCT.STATUS, 
MENBER.NO 30 UY STRUCT.LENGTH = O& 

3194 STRUCT.STATUS = Ok ' <> 0, falls Innerhalb von 
Struktur-Definition 

32 U3 MEMBER,NO = Ok 

33 gF REVENBER.KEY = Ok 

3% PR ' Konstanten 

35 a8 DIM SHARED NULL 

36 8 DIM SHARED WINDOWDRAG, WINDOWOLOSE, WINDONSTZING 

37 Hv DIM SHARED ACTIVATE, WBENCHSCREEN 

3a il WILL = 0 

39 4) WINDOWDRAG = 2 

40 FR WINDOWCLOSE = 8 

AL AR WINDONSIZING = 1 

42 FL ACTIVATE = 4096 

43 BO WBENCHSCREENE = 1 

Ha Rp defatruct 

49 dW3 short nuLeftkdge 

46.8 short nwTopEdge 

47Xg short nuhldth 

4ahe short nwHeight 49 WM 

SO FR byte nwBlockPen 

Blke 1ong nYIDCHPFlags 

SEN long nwFlags 

53 p2 vold.ptr nurirstöndget 

SAME  vold.ptr nwCheckMark 

$sur void.ptr nwTitle 56 Qu 

57 oh vold.ptr nwBitMap 

Sa 0M short mwMlinidth 

5952 short nultintielght 

‚60 Qe 

am 


byte neDetaflPen 


void.ptr nwSereen 


Listing 2. Anregungen 
zum Umgang mit 
Strukturen in Basic 


short nulaxvidch 
short nwMaxHeight 
x short nutype 
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EI RVOlenastruct NewWindon 
(& BR main: 
3 | struet Newkindor, mw 
1e$ = 20 : te$ = 30 : w£ = 200 : hf = 120 


Flags = Flags 

assign.to nW, VARPTR(1e%) 
assign.to me, VARPTR(teX) 
assign.to ne, mulidth, VARPTR(#E) 
assign.to ne, muHieight, VARPTR(RZ) 


assign.to nw, nwDetailPen, VARPIR(dpf) 
assign.to nw, nwBlockPen, VARPIR(BPE) 
assign.to nw, nwIDCMPFlags, VARPTR(NULL) 
assign.to nv, nwFlags, VARPTR(Flags) 
assign.to nw, nuFirstGadGet, VARPTR(NULL) 
asaign.to nw, nuChecklark, VARPTR(NULL) 


assign.to mw, nwlitle, VARPTR(NULL) 
assign.to nw, nwSereen, VARPTR(NULL) 
assign.to ne, neBitNap, VARPTRÜNULL) 


assign.to nw, meMinkidth, VARPIR(mEWE) 
assign.to nw, nsMinHeight, _VARPIR(mIN?) 
assign.to nw, nuHaxkidth, VARPIR(mEE) 
assign.to nw, nuNexleight, VARPTR(mah£) 
assign.to nr, nwIype, VARPTR(WBENCHSCREENS) 
Win = Openkindow( FNADDROF(n“) ) 

WHILE NOT MOUSE(O). :WEND 

CloseWindow Win 

‚93 MIO Finished: 

9 2x3 Freeßtructe 


ke ' Unterprogranne zun Ungang nit Strukturen 

97 WW SUB defstruct STATIC 

98 Dt SIRUOT.STATUS = 1% 

\S9\bw  SIRUCT.LENGTH = SIZEOFLONG ' Erster Eintrag ist Zeiger 
auf Struktur-Definition 

100 eE MENBER.NO = 1& 

101 Pf FOR 1% = 0 TO NAX.NEMBERSE 


102 R86 STRUCT.MEMBERS(1E) = Ok 
203 Lg NEXT AR 
104 iK0 END SUB 


205 Rh SUB endstruct( struct.name ) STATIC 

106 1x3 STRUOT.STATUS = Ok 

307 3b STRUCT.HENBERS(O) = MEMBER.NO 

108 x STRUCT.MEMBERS(HENBER.NO) = STRUCT.LENGTE 

MO Ua bytes = (MEMBER.NO+L) * SIZEOFLONG 

OA  struct.nane = AllooRenenber&(VARPTR(REMENBER.KEY) , 


\ bytes,0) 
ar Copyien VARPTR(STRUCT.MENBERS(0)) ‚struct.nene,bytes 
212 gs0 End sus 


119.95 SUB allot( Instance, size) STATIC 
MAD IF ( STRUCT.STATUS = 0 ) THEN 


115 677 instance = AllocRemenber&{VARPTR(REMEMBER.KEY), 
N size,0) 

Nm  zISE 

117 887 STRUCT .MEMBERS(NEMBER.NO) = STRUCT.LENGTH 


ua STRUCT.LENGTH = STRUCT.LENGTH + size 
19 KS instance = MEMBER.NO 
gs NENBER.NO = MEMBER.NO + 1 


im 5 ENDIF 
3 WW SUB struct( struct.name, Instence ) STATIC 
W2A eh size = CING(PEEKL(struct.nane + PEEKL(struct.nene) = 
\ SIZEOFLONG)) 
ErEDNG allot instence, size 
126 08 IF (STRUCT.STATUS = 0 ) THEN 
27 087 POKEL instenee, struet.nane 
228 Did END IF 


129 790 END SUB 

420 ye SUB void.ptr( instance ) STATIC 
131204 allot Instance, 4& 

132 Aco zw sus 

133 bE SUB short( instanee ) STATIC 
We uj4 ellot Instanee, 2% 

195 DrO END SUB 

136 f£. SUB long( instence ) STATIC 

jÜ4  allot Instanoe, 4& 

m sıB 


ih m sıs 

342 &w SIB douhle( instance ) STATIC 

13 IC} ellot Instenee, 8& 

1 wo mn sız 

145 RC | SUB byte( instanoe ) STATIC 

26 34 _ ailot instance, 1& 

147 PRO 2D sıa 

ÜBER SIE cher( instance, bytes) STATIO 

149 za ellot instance, 'bytes 

350 500 2 suB 

351 Rq SUB assign.to( instance, menber, value.ptr) STATIC 
252 Oe4 struet.deser = PEEKL(instance) 

253 28 last.nenber = PEEKL(struet.deser) 

IE menber.offsei = struct.deser + menber # SIZEOFLONG 


351 IF nenber = 0 TEN 

156 des length = PEEKL(struot.deser + last.nenber * 
SIZEOFLONG) 

37 fe Copsiien value.ptr,instance,length 

158 0x4 _ZISEIF menber < last.menber THEN 

159 118 offset = PEEKL(menber.offset) 

150 O8 length = PEEKL(menber.offset+SIZEOFLONG) - offset 

161 AL ! Bytes werden in Worten gespeichert 

162 11 IF length = 1 THENo =1 EISEo = 0 

183 83 Copyiiem (value.ptr4o) ‚Instancetoffset,length 

164 at 20 Ir 

165 10 mo sus 


166 34 SUB assign.fron( value.ptr, instance, nenber) STATIO 
167 dE, struct.deser = PEEKL(instanoe) 

168 BR last.menber = PEEKL(struct.desor) 

9 2t menber.offset = struct,.descr + menber * SIZEOFLONG 
170 p6 IF genber < last.menber THEN 


171 a8 offset = PEEKL(menber.offset) 

172 08 iength = PEEKL(nenber.offset+SIZEOFLONG) - offset 

273 25 IF length = 1 THEN 0 = 1 EISE 0 = 0 

174 48 ‚opyMem Instanceroffset, value.ptr+o, length 

175 Qs4 EISEIF menber = 0 THEN 

176 xc8 length = PEEKL(struct.deser + last.menber # 
SIZEOFLONG) 

177 DR Copylem Instance,VARPTR(value) ‚length 

ach WIE 

179 v20 zw sız 


180 ah SUB strepy( destptr, sourceptr) STATIC 
dBL Eh  Gp = destptr 

18220 sp = sourceptr 

23 X & = PEEK(sp) 

IA TE WEILE (a <> 0) 


385 hu7 POKE dp, a 
186 ub dp=Ädp+ı 
187 % per 
188 60 a = PEEK(sp) 


au  wmD 

190 ur POKE dp, a 

391 790 ID suB 

192 98 SUE cstring(strptr,as) STATIC 

193 ©4&4 IF STRUCT.STATUS = 0 THEN 

194 108 size = IEN(a$) +1 

2 allot strptr, size 

= CopyNen SADD(a$) ‚strptr,size 
2197 ye POKE strptmsize-1,0 
we 7 mır 


210 &0 zw sıB 
211 29 SUB FreeStruets STATIC 

212 03 Freeiemenber VARPIR(REMENBER.KEY) ‚-1& 
23 m0 2D sız 

ZUR WE Belesselien: 

217 n23 PRINT "Fehler Numer:”, ERR 

216.320 RESWE Finished 

ZT ve Breaihii 
218 vi RETURN Finished 


139 TA SUB flcat( instance ) STATIC Listing 2. 
0 4 aller instence, 4& (c) 1990 mar (Schluß) 
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sSAMIGA 


SONDER DHKHEF 


2 Listings der 


Spitzenklasse 
Tolle Anwendungen, 
Tips, Tricks und Tools 


1 Rund um den 


Amiga 
Ausführliche Kurse, 
Bauanleitung, Tips&Tricks 


Das Sonderheft 1 enthält einen 
ausführlichen Basic-Kurs alles 
über den richtigen Umgang der 
alternativen Benutzeroberfläche 
"Command Interface Line", 
Bauanleitung: Mit dem Digitizer, 
und der zügehörigen Soltware 
"Digisoft Plus" tauchen Se ein in 
die Welt der digitalen Klänge. 
Tips&Tricks: aufgeteilt nach vier 


Fontdesigner", 
'Objekt-Editor', 
"Haushaltsbuch", 
"Keyboard-Master', "Fast 
Load-Copy', "Super-Copy" 
sind nur einige von vielen 
‚Anwendungen im 
Sonderheft 2. Außerdem: 
Ratschläge zu Superbase 
und zwei außergewöhnliche 


Bereichen: Einsteiger, Insider, Spiele. 
‚Amiga-Basic und CL. 
3 Cund 4 
Assembler Basic und 
‚Zwei Super-Kurse und Spiele 
viele Tips und Tricks er zum 


Der große C-Kurs für alle ‚Abtippen in AMIGA-Basic 
Umsteiger. Programmieren Sie 
ab sofort mit kräftiger 
Unterstützung durch 
Betriebssystem und Libraries. Der 
Assembler-Kurs enthüllt alle 
Geheimnisse des 68000er 


Die absoluten Spiele 
Top-Hits für den AMIGA in 
einer Übersicht, Mit 
Klassikern wie "Shanghai" 
und vielen brandneuen Hits. 


a Ein ausführlicher Basic-Kurs 
führt zu Programmen mit 
rasanten 
Geschwindigkeiten 
EEE IMMEEEEE BEE 
5 Public Ich bestell ‚Ausgaben AMIGA SH Ni 
Ich bestelle: _ I 
Domain ee 
Software zum Nulltarif: BA N 
Das Beste aus aller Welt 
z KEN 
Die ganze Faszination der 
afik in einem Projekt. — .' "N 
Wichtigster Themenbereich x 5 


werden Utilities mit 
zahlreichen Hillsprogrammen 


— "NR. 


sein. Insgesamt: = Ausgaben für 16,-DM 
pro Exemplar 
Name, Vorname 
7 Spiele- 6 Straße, Hausnummer 
programmierun Anwendungen 


Knowhow, Projekte, Spiele 


Workshops: Experten verraten 
alle Tricks im Umgang mit 
den professionellen 


PLZ, Wohnort 
Knowhow: Wir lüften die /ohnort 


Geheimnisse von Blitter, Copper 


& Co. Projekte: Die erste Programmen Sonix, Superbase Bechnpgssumne DM 
30-Vektor Übrany für den Amiga und Beckett. Überblick: 9 ee 
ermöglicht völlig neue Erlebnisse Anwendungsprogramme un, 1. 3,-DM Versandk 3:DM 

1 der Grafik-Welt. Lesen Sie die Vorstellung der besten er ER, 
über die Entstehung neuer Spiele Programme. Top-Programme Rechnungsbetrag insgesamt DM 


von der Idee bis zum Programm. 
‚Spiele: Fünf brandheiße Spiele 
aus diesem Heft sind - neben 
vielen Tools und Utilities - auf 
Diskette erhältlich, 


fast umsonst: Hochkarätige 
‚Anwendungen zur 
Textverarbeitung, 
‚Kontenführung und 
Dateiverwaltung bestechen 
durch ausgerite 
Benutzerführung. 


Schicken Sie bitte die ausgefüllte Rare 
zusammen mit dem Rechnungsbetrag als 
Verrechnungsscheck im Briefumschlag an: 
MarktStTechnik Verlag AG, Leserserie 
Hans-Pinsel-Str.2 in 8013 Haar bei München 


SAMIGA 


BESTELLCOUPON 
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Von Andreas Regul 


as Amiga-Basic besitzt 

einen leistungsstarken 

Basic-Interpreter mit 
großem Befehlsschatz. Der In- 
terpreter bietet alle Vorteile ei- 
nes modernen Basic: von 
Sprungmarken über Prozedur- 
Routinen bis hin zu globalen 
und lokalen Variablen. Den- 
noch läßt sich nicht jedes Pro- 
blem mit Hilfe des Standard- 
Befehlssatzes lösen. Beson- 
ders für schnelle Programme 
istes sinnvoll, auf die Bibliothe- 
ken des Betriebssystems (Li- 
braries) zuzugreifen. 

Neidvoll blicken viele Basic- 
Programmierer auf Sprachen 
wie © oder Modula-2, mit denen 
der Zugriff auf die Libraries be- 
sonders einfach erscheint. Vie- 
le wissen zwar, daß man auch in 
Basic auf diese Bibliotheken 
zugreifen kann. Welche Funk- 
tionen jedoch wie zu nutzen 
sind, ist den meisten unbekannt 
- nicht zuletzt, weil das Basic- 
Handbuch darüber kaum Infor- 
mationen enthält. 

Damit Sie die Fülle der Be- 
fehle aus den Bibliotheken in ei- 
gene Programmen einbinden 
können, stellen wir Ihnen im fol- 
genden die wichtigsten Befehle 
und Funktionen vor. 

Welche Bibliotheken gibt es 
überhaupt? Hier die wichtig- 
sten: 

- Exec-Library 

- DOS-Library 

- Intuition-Library 
- Graphics-Library 

Es existieren noch einige 
weitere Bibliotheken für mathe- 
matische Funktionen, Layer- 
Benutzung, Timer etc. Diese 
sind für den Basic-Program- 
mierer von geringerem Interes- 
se. Daher sind aus ihnen nur ei- 
nige nützliche Befehle in der 
Kurzinfo-Tabelle aufgelistet (Ta- 
belle 5, am Schluß des Artikels). 

Um einen Befehl aus einer 
Bibliothek zu verwenden, muß 
diese Bibliothek vorher mit dem 
LIBRARY-Befehl geöffnet wer- 
den. Ein Beispiel: 

LIBRARY "graphies.library” 

Dieser Befehl öffnet die Gra- 
phics-Bibliothek und macht alle 
Routinen zugänglich. 

Dadie Routinen zum Großteil 
in Assembler oder C geschrie- 
ben sind, benötigt das Amiga- 
Basic Informationen darüber, in 
welchen Prozessorregistern die 
Parameter übergeben werden 
müssen. Dazu wird aus dem 
Unterverzeichnis »libs« (LIBS- 
Device) eine sog. ».bmap«-Datei 
nachgeladen. 


System-Bibliotheken 


Programmierer 


Bevor Sie den LIBRARY-Be- 
fehl ausführen können, sollten 
Sie im »libs«-Unterverzeichnis 
nachsehen, ob die benötigte 
».bmap«-Datei enthalten ist. Für 
die Graphics-Library muß bei- 
spielsweise die Datei »graphics. 
bmap« vorhanden sein. 

Ist dies nicht der Fall, können 
Sie mit einem speziellen Hilfs- 
programm (ConveftFD) von der 
Extras-Diskette, die Ihrern Ami- 
ga beilag, dieses File erzeu- 
gen. Starten Sie dazu auf die- 
ser Diskette im Unterverzeich- 
nis »BasicDemos« das Basic- 
Programm »ConvertFD« mit ei- 
nem Doppelklick. Dann geben 
Sie den Namen der entspre- 
chenden ».fd«-Datei an. Folgen- 
des Beispiel soll Ihnen helfen: 

Sie möchten die »graphics. 
bmap«-Datei erzeugen. Tippen 
Sie den Dateinamen »graphics- 
lib.fd« ein (wenn nötig mit Pfad- 
namen). Die ».fd«-Dateien be- 
finden sich generell im Unter- 
verzeichnis »fd1.2« bzw. »fd1.3« 
(je nach Workbench-Version). 
Kopieren Sie daraufhin die ent- 
standene ».bmap«-Datei (in un- 
serem Fall »graphics.bmap«) in 
das oben beschriebene »libs«- 
Unterverzeichnis. Nun können 
Sie die Bibliothek mit dem 
LIBRARY-Befehlöffnen und die 
Funktionen nutzen. 

Neben Befehlen enthalten 
die Bibliotheken auch Funktio- 
nen. Das sind Befehle, die ei- 
nen Wert zurückliefern wie 
FRE(0). Wollen Sie solche 
Funktionen nutzen, müssen 
Sie diese gesondert deklarie- 
ren mit dem Befehl DECLARE. 
Beispiel: 

DECLARE FUNCTION Examine$ 
LIBRARY 

Nun können Sie die Exa- 
mine-Funktion wie eine norma- 
le Basic-Funktion verwenden. 


Die EXEC-Library 


Mit Hilfe der EXEC-Library 
sind alle elementaren Arbeiten 
des Systerns möglich. Haupt- 
aufgabe ist die Verwaltung aller 
Tasks. Hier sollen aber nur die 
für den Basic-Programmierer 
interessanten Befehle be- 
schrieben werden: 


Allocate (FreeList, ByteSize) 
»Allocate« belegt einen Spei- 
cherbereich von angegebener 
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Größe (ByteSize) und setzt den 
Zeiger auf den Anfang dieses 
Bereiches zurück. Es istjedoch 
ein Zeiger auf eine Memory- 
Free-List notwendig (FreeList). 
Diese Liste mußte zuvor irgend- 
wo im Speicher angelegt wer- 
den. Für Basic-Programmierer 
ist die Funktion »AllocMem« 
einfacher, da man die Liste 
nicht anzugeben braucht. 


Deallocate (FreeList, 
MemoryBlock, ByteSize) 

Dieser Befehl gibt den mit 
»Allocate« angeforderten Spei- 
cher wieder frei. Neben dem 
Zeiger auf die Memory-Free- 
List und der Größe des Spei- 
cherblocks muß auch seine 
‚Adresse (MemoryBlock) ange- 
geben werden. 


AllocMem (ByteSize, 
Requirements) 

Diese Funktion hat die glei- 
che Wirkung wie »Allocate«. Je- 
doch wird keine Memory-Free- 
List benötigt. Die Funktion gibt 
die Adresse des Speicher- 
blocks zurück (oder Null, wenn 
der Speicher nicht beschafft 
werden konnte). 

Es ist zusätzlich möglich, die 
Eigenschaften des angeforder- 
ten Speichers festzulegen (Re- 
quirements). Die Werte für die 


In Basic effektiv 

und schnellere Prograr 
das nicht? E 
ware-Entwickler zeic 


Eigenschaften entnehmen Sie 
bitte der Tabelle 1. Die Werte 
können auch addiert werden, 
um mehrere Eigenschaften 
gleichzeitig zu wählen. 


‚AllocAbs (ByteSize, Location) 

»AllocAbs« sucht nach einem 
Speicherbereich an der ange- 
gebenen absoluten Position. 
Die Funktion gibt die Adresse 
des tatsächlich belegten Spei- 
cherbereichs zurück (oder Null 
bei einem Fehler). »Location« 
gibt die absolute Position des 
gewünschten Speichers und 
»ByteSize« die Länge in Byte an. 


FreeMem (MemoryBlock, 
ByteSize) 

»FreeMem« gibt einen mit 
»AllocMem« reservierten Spei- 
cherbereich wieder frei. »Me- 
moryBlock« beinhaltet die 
Adresse und »ByteSize« die 
Länge des Speichers. 


AvallMem (Requirements) 
Diese Funktion gibt den größ- 


Tabelle 1. Die hier angegebenen Parameter-Werte gelten für 
die EXEC-Funktionen »AllocMem« und »AvallMem« 
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in Basic nutzen 


GRUNDLAGEN 


wie die Profis 


| programmieren 

me erzeugen. Wer will 
erfahrener Soft- 

wie es gemacht wird. 


ten Speicherbereich mit den 
angegebenen Eigenschaften 
an. Die Werte dieser Eigen- 
schaften sind wie bei »Alloc- 
Mem«. »AvailMem« zeigt ledig- 
lich den entsprechenden Spei- 
cherbereich an, reserviert ihn 
aber nicht. Dies müssen Sie, so 
gewünscht, nachträglich mit 
»AllocMem« durchführen. 


CopyMem (Source, Dest, 
Size 


Dieser Befehl kopiert einen 
Speicherbereich an eine ande- 
re Adresse, »Source« gibt die 
Anfangsadresse des Quellbe- 
reiches und »Dest« die Anfangs- 
adresse des Zielbereiches an. 
»Size« bestimmt die Anzahl der 
zu kopierenden Bytes. 


CopyMemQuick (Source, 
Dest, Size) 

»CopyMemQuick« hat die glei- 
che Funktion wie »CopyMem«, 
jedoch müssen die Anfangs- 
adressen sowie die Byte-Anzahl 
durch 4 teilbar sein, Der Vorteil 
dieses Befehls: Er ist schneller 
als »CopyMem«, 

Dies sind für den Basic-Pro- 
grammierer die wichtigsten 
Funktionen aus der EXEC-Li- 
brary, Wie schon erwähnt, sind 
es vorwiegend Routinen, die 
Speicherplatz reservieren oder 
kopieren. Dies ist für eine gan- 
ze Reihe anderer Routinen aus 
anderen Libraries wichtig. 

Das Betriebssystem des Ami- 
ga verwaltet fast alle Elemente, 
wie Tasks, Screens, Windows, 
etc, in sog. Listen bzw. Struktu- 
ren. Um in Basic auf diese zu- 
zugreifen, müssen sie erst ir- 
gendwo im Speicher initialisiert 
und ausgelesen oder beschrie- 
ben werden, was nicht so ein- 
fach ist wie in C oder Modula-2. 

Aber kommen wir nochmals 
zu den EXEC-Routinen. Neben 
der eben beschriebenen An- 
wendung lassen sie sich sehr 
gut für eine dynamische Spei- 
cherverwaltung verwenden. Es 
ist beim Amiga-Basic notwen- 
dig, von vornherein festzule- 
gen, wieviel Hauptspeicher 


dem Programm zusteht. Es gibt 
jedoch viele Anwendungen, bei 
denen dies absolut nicht vor- 
hergesagt werden kann (z.B. 
Datenbanken, Textverarbeitun- 
gen etc). Mit dem AllocMem- 
Befehl läßt sich aber ein Spei- 
cherbereich anfordern, in den 
Sie mit »CopyMem« den Inhalt 
von Variablen zwischenspei- 
chern. Ein Beispiel: 
text$="Dies ist ein 
Text, der im Speicher 
abgelegt werden soll.” 
adr&=AllocMem&(LEN 
(text$) ,‚1) 
CALL CopyMem&(SADD(text 
$) ‚adr&,LEN(text$)) 


Auf diese Weise brauchen 
Sie nur noch die Adresse des 
reservierten Speicherbereiches 
festzuhalten. Mit »CopyMem« 
kann die Variable anschließend 
wieder zurückkopiert werden: 


CALL CopyMen&(adr&, 
SADD(text$) ‚LEN(text$)) 


Auf diese Weise ist es bei- 
spielsweise möglich, einen Edi- 
tor aufzubauen. Im Basic-Spei- 
cher wird jeweils lediglich eine 
Zeile benötigt und natürlich die 
Adressen, an denen die übri- 
gen Zeilen gespeichertsind. Da 
Adressen wesentlich weniger 
Speicherplatz einnehmen als 
der Text, ist es möglich, ein 
recht großes Feld (Array) zu de- 
finieren, welches diese Adres- 
sen enthält. Auf diese Weise 
brauchen Sie für Basic nur we- 
nig Speicherplatz zu reservie- 
ren müssen, und die zu verwal- 
teten Daten können - wenn nö- 
tig - den ganzen Speicher des 
‚Amiga füllen. Dies soll nur eine 
‚Anregung sein, wie sich solche 
Routinen einsetzen lassen. Na- 
türlich sind noch viele weitere 
Anwendungen denkbar. 


116 Protectionbits: 


120 Eintragtyp (?) 
124 Größe In Bytes 
128 ‚Größe in Blocks. 
132 Datumsstruktur: 


144 Kommentarzeile 


Wert Bedeutung 

File-Info-Struktur: 

0 Diskettennummer 

4 Eintragtyp (größer null = Verzeichnis; kleiner null = Datei) 
8 Dateiname 


1 = nicht löschbar 

2 = nicht ausführbar 
4 = schreibgeschützt 
8 = lesegeschützt 
16 = Archivbit 


132 Anzahl Tage seit dem 1.1.1978 
136 Anzahl Minuten seit Mitternacht 
140 Ticks 


Disk-Info-Struktur: 

() ‚Anzahl der Fehler 
4 Laufwerksnummer 
8 Diskettenstatus: 


12 Anzahl Blocks 


16 ‚Anzahl Blocks beschrieben 


20 _Bytesje Block 
24 __ Disketten-Typ 


28 Zeiger auf den Diskettennamen 
32 <> 0, wenn auf Diskette zugegriffen wird 


80 schreibgeschützt 
‚81 wird gerade überprüft 
82 überprüft 


Die Zahlen vor den einzelnen Eit 
tion, vom Anfang der Struktur an 
zu finden ist, 


Tabelle 2. So sind die von de! 
gelieferten Informationen zu 
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inträgen geben an, ab welcher Posi- 
gerechnet, die jeweilige Information 


'r DOS-Funktion »Info« 
entschlüsseln 


DOS-Library 


Aus der DOS-Library sind für 
den Basic-Programmierer we- 
sentlich mehr Routinen interes- 
sant. Mit ihnen lassen sich bei- 
spielsweise Inhaltsverzeichnis- 
se von Disketten auslesen, 
neue Verzeichnisse anlegen 
oder Informationen über eine 
ganze Diskette erhalten. 


CreateDir (name) 

Dieser Befehl erzeugt ein 
neues Uhnterverzeichnis. Die 
Funktion gibt den Lock auf das 
neue Unterverzeichnis zurück. 
Er wird zwar nicht weiter ge- 
braucht, muß aber in einer Va- 
riablen aufgefangen werden. 

Der Parameter »name« gibt 
einen Zeiger auf den Verzeich- 
nisnamen an (ggf. mit Pfad). 
Den Zeiger auf eine Stringva- 
riable erhält man auf einfache 
Weise mit der SADD-Funktion. 
Ein Beispiel: 


verz$= "Programme ” 
+CHR$(0) 
dummy&=CreateDir& 
(SADD(verz$)) 


Es Ist unbedingt erforderlich, 
daß der Verzeichnisname mit 
einem CHR$(0) endet. Daran 
erkennt der Amiga das Ende 
des Verzeichnisnamens. 

Gibt die Funktion eine Null 
zurückgibt, konnte das Ver- 
zeichnis nicht erstellt werden. 


CurrentDir (lock) 

»CurrentDir« setzt das aktuel- 
le Verzeichnis, Dies ist in Ami- 
ga-Basic allerdings mit CHDIR 
einfacher zu erreichen. 


Examine (lock, InfoBlock) 

Mit »Examine« werden Infor- 
mationen über eine Datei bzw, 
ein Verzeichnis geholt. Der Be- 
fehl legt die Information ab der 
Speicherstelle »infoBlock« ab. 
»lock« gibt den Lock der Datei 
oder des Verzeichnisses an, 
über das Informationen ge- 
wünscht werden (siehe auch 
Funktion »Locks»). 

Um den benötigten Spei- 
cherblock zu erhalten, läßt sich 
die Funktion »AllocMem« aus 
der EXEC-Library verwenden. 
Ist der jeweils zurückgelieferte 
Wert Null, konnte die Informa- 
tion nicht beschafft werden. 


ExNext (lock, infoBlock) 
Diese Funktion bewirkt nahe- 
zu das gleiche wie »Examine«. 
Sie liest ebenfalls eine Datei- 
‚oder Verzeichnisinformation ab 
der angegebenen Speicher- 
adresse ein. Allerdings muß 
vorab einmal »Examine« ver- 
wendet werden. Beim Auslesen 
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Strukturen für OpenWindow 


Wert Bedeutung Wert Bedeutung 
NewWindow-Struktur: ‚4096 Das Window ist sofort nach dem Öffnen aktiviert 
o x-Koordinate der linken oberen Ecke 65536 ‚Auch die rechte Maustaste liefert eine Mousebuttons- 
2 y-Koordinate der linken oberen Ecke Meldung (keine Menüs möglich) 
4 Länge 131072 Es wird keine Meldung gegeben, wenn das Window 
6 Höhe erneuert werden muß 
8 Farbnummer des Zeichenstiftes 
9 Farbnummer des Hintergrundstiftes. 
10 IDCMP-Flaggen (siehe unten) IDCMP-Flaggen: 
1 Window-Flaggen (siehe unten) 1 9 rößenveränderung wartet, bis Bildschirmausgabe ab- 
18 ‚Zeiger auf das erste Gadget geschlossen ist 
22 'Zeiger auf den Haken, der bei Menüpunkten erscheint 2 Nachricht, wenn Größe verändert wurde 
28 Zeiger auf den Titel. des Windows 4 Nachricht, wenn Window neu gezeichnet werden muß 
Ey ZalOBHAUF den Seien 8 Nachricht, wenn eine Maustaste gedrückt wurde 
34 Zeiger auf eine eigene Bitmap für das Window 16 Nachricht, wenn die Maus bewegt wurde 
38 Minimale Länge des Windows 32 Nachricht, wenn ein Gadget vom Typ Gadg-Immediate 
40 Minimale Höhe des Windows betätigt wurde 
a2. Maximale Länge des Windows 64 Nachricht, wenn ein Gadget vom Typ »RelVerify« 
44 Maximale Höhe des Windows betätigt wurde 
46 Typ des Screens, auf dem das Fenster erscheinen soll 128 Nachricht, wenn der erste Requester geöffnet wird 
ANOTKbeNED/OEUE)dEnEL. JenBen) 256 ‘Nachricht, wenn die rechte Maustaste gedrückt wurde 
512 Nachricht, wenn das Schließsymbol angeklickt wurde 
1024 Nachricht, wenn eine Taste gedrückt wurde 
In der NewWindow-Struktur befinden sich zwei Einträge 2048 Zeichenoperationen im Window werden 
(Window-Flaggen und IDOMP-Flaggen), die das Aussehen des abgeschlossen, bevor Requiester geöffnet wird 
Windows und die zu empfangenden Nachrichten bestimmen: 4096 Dan wenn der letzte Requester geschlossen 
8192 'Zeichenoperationen im Window werden abge- 
schlossen, bevor Menüoperationen durchgeführt wer- 
Window-Flaggen: den können 
1 Ein Größengadget wird gesetzt 16384 Nachricht, wenn Preferences verändert wurden 
2 Das Window Ist In seiner Position verschiebbar 32768 Nachricht, wenn Diskette in Laufwerk eingelegt wurde 
4 ‚Zwei Tiefengadgets werden gesetzt 65536 Nachricht, wenn Diskette aus Laufwerk heraus- 
8 Das Window erhält ein Schließgadget genommen wurde 
16 Das Größengadget wird in den rechten Rahmen 262144 Nachricht, wenn das Window aktiviert wurde 
‚gesetzt 524288 Nachricht, wenn das Window deaktiviert wurde 
32 Das Größengadget wird unter den Rahmen gesetzt 1048576  Mauskoordinaten werden relativ zur alten angegeben 
64 Nachricht, wenn das Window erneuert werden muß 2097152  Tastatureingaben werden nicht als Tastaturcodes, 
128 Es wird eine eigene Bit-Map verwendet sondern als ASCII-Tastaturcodes übergeben 
256 Das Window ist das unterste 4194304 Das Programm bekommt alle 1/50 Sekunde eine 
512 Die Mausposition kann ausgelesen werden Nachricht 
1024 Windowrahmen und -inhalt werden getrennt verwaltet Die einzelnen Werte müssen addiert werden, um mehrere Einstel- 
2048 Das Window erhält keine Rahmen \ungen gleichzeitig zu setzen. 


Tabelle 3. Alle nötigen Informationen, um die Strukturen für die Intuition-Funktion »OpenWindow« zu erstellen 


eines Directories geht man ge- 
wöhnlich folgendermaßen vor: 
Mit »Examine« ließt man die er- 
ste Information aus, alle folgen- 
den mit»ExNext«, bis der Rück- 
gabewert Null wird. Um an die 
einzelnen Informationen aus 
dem Speicherbereich zu gelan- 
gen, wird der PEEK-Befehl ein- 
gesetzt. Die Einträge in der In- 
formationsliste sind nach ei- 
nem ‘bestimmten Schema ge- 
ordnet. Man kann daher gezielt 
mit der relativen Adresse auf ei- 
ne Teilinformation zugreifen. 


Info (lock, parameterBlock) 
Mit dieser Funktion beschaf- 
fen Sie sich Informationen über 
eine ganze Diskette. Als Para- 
meter müssen ein Lock aufeine 
beliebige Datei bzw. ein Ver- 
zeichnis und wiederum der 
Speicherbereich (parameter- 
Block) für die Infostruktur über- 
geben werden. Um die Werte 


zu entschlüsseln, lesen Sie Ta- 
belle 2. 

Wenn Sie die Programmie- 
rung noch besser nachvollzie- 
hen wollen, sollten Sie sich die 
Programmierung des File-Re- 
quester ansehen (Seite 94). 
Dort wird ausgiebig Gebrauch 
von den Befehlen gemacht. 


ParentDir (lock) 

Dieser Befehl liefert den Lock 
auf das nächsthöhere Verzeich- 
nis. Dies kann jedoch leichter 
durch »CHDIR ”/”« erreicht 
werden. 


Rename (alterName, 
neuerName) 

Rename hat die gleiche 
Funktion wie NAME...AS.... 


SetComment (name, 
kommentar) 

Mit diesem Befehl können 
Sie einen Kommentar zu einer 
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Datei schreiben. »name« ist ein 
Zeiger auf den Namen der an- 
gegebenen Datei und »kom- 
mentar« ein Zeiger auf den 
Kommentar, der in die angege- 
bene Datei gesetzt werden soll. 


SetProtection (name, maske) 
Setprotection setzt die Pro- 

tection-Bits. »name« ist wieder- 

um ein Zeiger auf den Dateina- 

men (mit SADD(...) zu erhalten). 

Der Parameter »maske« kann 

folgende Werte annehmen: 

0 löschgeschützt 

1 nicht ausführbar (nur sinnvoll 

bei Programme) 

nicht beschreibbar 

nicht lesbar 

‚Archiv-Bit, wird immer ge- 

löscht, wenn die Datei be- 

schrieben wurde 

Die angegebenen »maske«- 

Werte lassen sich addieren, um 

mehrere Protection-Bits korrekt 

zu setzen. 


onm 


loErr () 

Diese Funktion liefert die 
DOS-Fehlernummer des _letz- 
ten Befehls. Viele DOS-Funk- 
tionen geben Null zurück, wenn 
ein Fehler aufgetreten ist. Mit 
»loErr« können Sie die genaue 
Fehlerursache bestimmen. Das 
gleiche Ergebnis liefert auch 
die Basic-Funktion ERR. 


Lock (name, zugriffsmodus) 
Der Amiga besitzt ein Multi- 
tasking-Betriebssystem und 
greift deshalb über sog. Locks 
auf Dateien zu. Dies ist notwen- 
dig, damit nicht gleichzeitig 
mehrere Tasks beim Bearbei- 
ten von Dateien in Konflikt gera- 
ten. Bei einer Reihe der vorher- 
gegangenen Routinen mußte 
der Lock der Datei angegeben 
werden. Mit dieser Funktion 
läßt er sich ermitteln. »name«ist 
ein Zeiger auf den Dateinamen 
und »zugriffsmodus« gibt an, ob 
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auf die Datei geschrieben oder 
aus ihr gelesen werden soll (-2 
zum Lesen, -1 zum Schreiben). 

Der Rückgabewert ist der 
Lock der Datei (des Verzeich- 
nisses - oder Null bei Fehler). 


UnLock (lock) 

Um den Lock auf eine Datei 
wieder freizugeben, ist dieser 
Befehl zu verwenden. Der Para- 
meter muß vorab mit der eben 
beschriebenen Funktion 
»Lock« festgestellt werden. 

Jeder Lock-Befehl sollte spä- 
testens am Ende eines Pro- 
gramms wieder freigegeben 
werden, da ansonsten kein an- 
derer Task auf die betroffene 
Datei zugreifen kann, bis ein 
Reset durchgeführt wird. 


DateStamp (puffer) 

Diese Funktion liefert die ak- 
tuelle Zeit und das aktuelle Da- 
tum. Das Datum ist jedoch nicht 
direkt ablesbar, da die Tage seit 
dem 1.1.1978 und die Minuten 
seit Mitternacht angegeben 
werden. Dem Basic-Program- 
mierer stehen aber die komfor- 
tableren Funktionen DATE$ 
und TIME$ zur Verfügung. 


Delay (ticks) 

Ein laufendes Programm 
wird für die angegebene Zeit- 
spanne in den Warte-Zustand 
versetzt, Der Parameter »ticks« 
‚gibt die Anzahl der 1/50 Sekun- 
den an. Diesen Befehl sollte Sie 
auf jeden Fall einer Warte- 
schleife vorziehen werden, da 
dem Prozessor weniger Re- 
chenleistung entzogen wird. 


Execute (kommando, 
eingabe, ausgabe) 

»Execute« führt einen CLI- 
Befehl aus. Der Parameter 
»kommando« ist ein Zeiger auf 
den entsprechenden CLI-Be- 
fehl; »eingabe« ist eine Datei- 
Identifikation, falls nach dem er- 
sten Befehl noch weitere aus 
dieser Datei ausgeführt werden 
sollen; »ausgabe« beinhaltet 
schließlich die Datei-Identifika- 
tion für die Ausgabe. Standard- 
mäßig wird auf das CLI-Fenster 
ausgegeben. Um von Amiga- 
Basic aus Befehle auszufüh- 
ren, solite für »eingabe« und 
»ausgabe« jeweils eine Null ein- 
gegeben werden. Ein Beispiel: 
ok% = Executef 
(SADD( "LIST”),0,0) 

In diesem Beispiel wird der 
LIST-Befehl des CLI ausge- 
führt. Um den CLi-Befehl auf 
diese Weise ausführen zu kön- 
nen, muß der Befehl auf der ein- 
gelegten Diskette vorhanden 
sein. Dies kann, wenn Sie nur 
über ein Laufwerk verfügen, 
sehr zeitaufwendig und um- 
ständlich werden. 


Intuition-Library 


Die Intuition-Library bietet ei- 
ne Fülle von Grafikfunktionen, 
die meist wesentlich schneller 
ausgeführt werden, als die ent- 
sprechenden Basic-Befehle. 
Das macht diese Bibliothek be- 
sonders für schnelle Bildschirm- 
ausgaben interessant. 


GIRUNDLAGEN 


ActivateWindow (Window) 

Das angegebene Window 
(Fenster) wird aktiviert. »Win- 
dow« stellt einen Zeiger auf die 
Window-Struktur dar. 

Intuituin verwaltet die Win- 
dow-Struktur. Die Anfangs- 
adresse dieser Struktur kann 
mit der Funktion WINDOW(7) 
festgestellt werden. 


CloseWindow (Window) 
Das angegebene Window 
wird geschlossen. 


MoveWindow (Window, 
deltaX, delta) 

Diese Routine verschiebt das 
angegebene Fenster um die 
übergebenen x- (deltaX) und y- 
Werte (deitaY). 

Sie müssen unbedingt dar- 
auf achten, daß die Position des 
Fensters nicht den Screen ver- 
läßt. Dies hätte einen Absturz 
des Amiga zur Folge. 


OpenWindow (NewWindow) 

Diese Funktion öffnet ein 
neues Intuition-Window. Die Ei- 
genschaften dieses Windows 
sind durch die Angaben in der 
NewWindow-Struktur spezifi- 
ziert. »NewWindow« ist ein Zei- 
ger auf diese Struktur. Um die 
Struktur zu erstellen, können 
Sie die Werte und ihre Bedeu- 
tungen der Tabelle 3 entneh- 
men. Für mehrere Einstellun- 
gen gleichzeitig müssen die 
einzelnen Werte addiert wer- 
den. 


RefreshWindowFrame 
(Window) 

Nach diesen Befehl werden 
Rahmen, Gadgets und der Titel 
des Windows neu gezeichnet. 
Dies ist erforderlich, wenn nach 
dem Öffnen des Windows Ver- 
änderungen in der Window- 
Struktur vorgenommen wurden. 


SizeWindow (Window, 
DeltaX, DeltaY) 

Um die Größe eines Win- 
dows vom Programm aus zu 
verändern, können Sie diesen 
Befehl einsetzen. »Window« ist 
wiederum der Zeiger auf die 
Window-Struktur (kann mit der 
Basic-Funktion WINDOW (7) 
festgestellt werden). »DeltaX« 
und »DeltaY« geben jeweils die 
Größenveränderung an, also 
nicht den absoluten neuen Grö- 
Benwert des Windows. 


WindowLimits (Window, 
MinBreite, MinHöhe, 
MaxBreite, MaxHöhe) 

Für ein Window können Mini- 
mal- und Maximalgrößen fest- 
gelegt werden, die weder von 
einem Programm noch durch 
den Anwender überschritten 
werden können. Dieser Befehl 
gibt die Werte an. Die überge- 
benen Parameter erklären sich 
von selbst. 


WindowToBack (Window) 
Wie der Name schon sagt, 
bringt dieser Befehl das ange- 
gebene Window in den Hinter- 
grund aller anderen Fenster auf 
dem entsprechenden Screen. 


FENSTER PROGRAMMIEREN. 


GANZ EINFACH! 
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HARDWARE - 
LÖSUNG“ 


Str kturen fi 


Wert Bedeutung 


r OpenScreen 


en ; 
benutzt) 


Länge des Soreens 
Höhe des Screens 


‚Screen 


 x-Koordinate der linken oberen Ecke (wird nicht 
y- oardinate der linken oberen Ecke 


Tiefe des Screens (Anzahl der Bitplanes: 1 bis 9 
Farbnummer des Zeichenstiftes 
'Faronummer des Hintergrundstiftes 
' Flaggen der’ ViewModes (siehe unten, Screen- 


laggen) 
Bas Typ (Workbench oder Custom-Screen). 
Zeiger auf den Zeichensatz (Font) des Screens 
Zeiger auf den Titel des Screens 
Zeiger auf Screen-Gadgets (wird nicht benutzt) 
Zeiger auf eine selber eingerichtete Bitmap für. ‚den 


Sereen-Flaagen ; 


128 

512 
1024 
4096 
sis 
16384 


Workbench) 


‚Für Mischung von ideo- und omaterbiden 
u . Verdoppeln der vertikalen Zeilen (von 256 auf 512) 
32 Legt Prioritäten für Double-Playfield-Modus fest 
h für ‚den Basic-Programmierer uninteressant) 

64 64 Farben gleichzeitig darstellbar 
wird im Moment noch nicht unterstützt 
für Dual-Playfield-Modus 

‚4096 Farben gleichzeitig darstellbar 

‚Screen wird erzeugt, aber nicht dargestellt 

Ermöglicht Darstellung von Hardware-Sprites 
. Auflösung von 640 Bildschirmspalten (wie bei der 


Tabelle 4. Alle nötigen Informationen, um die Strukturen für 
die Intuition-Funktion »OpenScreen« zu erstellen 


WindowToFront (Window) 
Dies ist genau die Umkeh- 
rung zum letzten Befehl (Win- 
dow To Back). Das Window wird 
in den Vordergrund gebracht. 


ClearMenuStrip (Window) 

Diese Anweisung läßt den 
Menübalken in der obersten 
Zeile des Windows verschwin- 
den. Hierdurch erhalten Sie ei- 
ne Zeile mehr Platz für Ausga- 
ben auf dem Bildschirm. Dies 
kann nützlich sein, wenn Ihr 
Programm keine Menüs ent- 
hält. 


CloseScreen (Screen) 

»CloseScreen« schließt ei- 
nen Screen mit dem angegebe- 
nen Zeiger auf die Screen- 
Struktur. Dies sollte aber bes- 
ser mit dem Basic-Befehl 
SCREEN CLOSE durchgeführt 
werden. 


CloseWorkBench () 

Der Befehl schließt den 
Workbench-Screen. Dies ist 
(nur) sinnvoll, wenn Ihr Pro- 
gramm einen eigenen Screen 
verwendet. In diesem Fall kann 
das Schließen des Workbench- 
Screens eine Speichereinspa- 
rung erbringen. 


DisplayBeep (Screen) 

Der durch den Screen-Poin- 
ter angegebene Screen blinkt 
kurz auf. Wenn für »Screen« 
nullangegeben wird, blinken al- 
le Screens auf. 


MoveScreen (Screen, 
DeltaX, DeltaY) 

Wie schon bei »MoveWin- 
dow« wird durch diesen Befehl 
der Screen verschoben. In der 
jetzigen Betriebssystemversion 
(1.3) besteht jedoch die Ein- 
schränkung, daß sich Screens 
nur in vertikaler Richtung bewe- 
gen lassen. Aus Kompatibili- 
tätsgründen sollten Sie den 
DeltaX-Wert immer auf Null set- 
zen. 


OpenScreen (NewScreen) 

Anhand der NewScreen- 
Struktur wird ein neuer Screen 
geöffnet. Die Variable »New- 
Screen« ist ein Zeiger auf eine 
Screen-Struktur, die zuvor er- 
stellt werden mußte. Um die 
Screenstruktur zu erstellen, 
können Sie die Werte und ihre 
Bedeutungen der Tabelle 4 ent- 
nehmen. 


OpenWorkBench () 
»OpenWorkBench« öffnet die 
Workbench wieder. Dies sollte 
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aufjeden Fall durchgeführt wer- 
den, wenn Sie zuvor mit»Close- 
WorkBench« die Workbench 
geschlossen haben. Ansonsten 
hängt Ihr Amiga nach dem Pro- 
grammende »in der Luft«. 


ScreenToBack (Screen) 

Bringt den Screen mit der.an- 
gegebenen Screen-Struktur in 
den Hintergrund aller anderen 
Screens. 


ScreenToFront (Screen) 

Bringt im Gegensatz zu 
»ScreenToBack« den Screen in 
den Vordergrund. 


WBenchToBack () 
Bringt die Workbench hinter 
alle anderen Screens. 


WBenchfoFront () 
Bringt die Workbench vor alle 
anderen Screens. 


CurrentTime (Second, 
Micros) 

Diese Funktion besorgt die 
aktuelle Uhrzeit. Die zwei Para- 
meter geben Zeiger auf zwei 
Speicherstellen an, in welche 
die Sekunden bzw. Mikrose- 
kunden eingetragen werden 
sollen. & 

Jetzt haben Sie einen Über- 
blick über die wichtigsten 
Intuition-Routinen, die Sie auch 
von Basic aus sinnvoll einset- 
zen können. Oft lassen sich die- 
se Befehle auch durch Basi 
Kommandos ersetzen, so z.B. 
die Routinen zum Öffnen und 
Schließen von Screens und 
Windows. Wenn Sie hierbei kei- 
ne besonderen Eigenschaften 
wünschen, sollten Sie auf die 
Basic-Befehle zurückgreifen. 
Die Bibliotheksroutinen sind 
nur dann sinnvoll, wenn be- 
stimmte Einstellungen vorge- 
nommen werden sollen, die von 
Basic aus nicht möglich sind. 
Dies gilt auch für die anderen 
Libraries. 


Graphics-Library 


Nun wollen wir uns der Gra- 
phics-Library widmen, die eine 
ganze Reihe interessanter Rou- 
tinen zur Verfügung stellt. Die 
Routinen der Graphics-Library 
sind auch leichter verständlich 
als die der Intuition-Library. 

Fast alle der Routinen aus 
der Graphics-Bibliothek benöti- 
gen einen Zeiger auf den Rast- 
port des angesprochenen Fen- 
sters. Diesen können Sie nach 
dem Öffnen des Fensters mit 
der Funktion WINDOW (8) fest- 
stellen. Es ist dringend erfor- 
derlich, daß diese Angabe 


stimmt, dalhr Amiga ansonsten 
mit großer Wahrscheinlichkeit 
in den ewigen Jagdgründen 
des Guru verschwindet. 


SetDrMd (RastPort, 

ZeichenModus) 

Der Amiga stellt verschiede- 
ne Zeichenmodi zur Verfügung, 
die von Basic aus nicht einstell- 
bar sind. Mit diesem Befehl 
können Sie einen Zeichenmo- 
dus wählen. Die übergebene 
Variable »ZeichenModus« kann 
dabei folgende Werte anneh- 
men: 

1 Zeichnen in der Vorder- 
grundfarbe, der Hintergrund 
wird nicht verändert 

2 Füllt den Zeichenbereich in 
der Hintergrundfarbe auf 
(dieser Modus ist beim 
PRINT-Befehl eingestellt) 

4 Komplementiert die vorhan- 
dene Farbe 

8 Stellt die Zeichen/Grafik in- 
vertiert dar 


Clear$creen (RastPort) 

Der gesamte Bildschirm wird 
ab der momentanen Grafikcur- 
sor-Position (RasterPort) ge- 
löscht. 


Draw (RastPort, x, y) 

Dieser Befehl zeichnet von 
der aktuellen Grafikcursor-Po- 
sition zur angegebenen Koordi- 
nate (x, y) eine durchgezogene 
Linie. 


DrawEllipse (RastPort, 
xm, ym, xr, yr) 

Es wird eine Ellipse auf den 
Bildschirm gezeichnet, die den 
Mittelpunkt »xm, ym« und die 
beiden Radien »xr« und »yr« 
hat. 


DrawCircle (RastPort, 
xm, ym, Radius) 

Zeichnet einen Kreis. Die Pa- 
rameter entsprechen »DrawEl- 
lipse«, jedoch nur mit einer Ra- 
diusangabe. 


Text (RastPort, String, 
AnzahlZeichen) 

Mit diesem Befehl kann si- 
cher jeder Basic-Programmie- 
rer etwas anfangen, zumal er 
sehr effektiv ist. Er arbeitet ähn- 
lich wie der PRINT-Befehl, je- 
doch können nur Zeichenketten 
und keine Zahlen ausgegeben 
werden. Diese müssen erst in 
eine Zeichenkette umgewan- 
delt werden. 

»String« ist ein Zeiger auf den 
Anfang der auszugebenden 
Zeichenkette und »AnzahlZei- 
chen« die Anzahl der auszuge- 
benden Zeichen. Im günstig- 
sten Fall kann die Ausgabe auf 
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diese Weise um das Zehnfache 
(!) beschleunigt werden. Den 
Zeiger auf eine Zeichenkette 
erhält man übrigens mit der Ba- 
sic-Funktion SADD (), beispiels- 
weise mit 

SADD (text$) 

oder 

SADD( "Dies ist eine 
Zeile”) 

Die Länge kann entspre- 
chend übergeben werden mit 
LEN (text$) 
oder 
LEN ("Dies ist eine 
Zeile”) 


Flood (RastPort, Modus, x, y) 

Füllt_ eine zusammenhän- 
gende Fläche. »Modus« gibt an, 
wie die zu füllende Fläche be- 
‚grenzt wird. Ist Modus gleich 0, 
wird die Fläche in der aktuellen 
Farbe gefüllt, die von einer Um- 
randungslinie mit dem durch 
»SetOPen« gesetzten Farbwert 


begrenzt wird. Ist Modus gleich 
1, wird als Füllfarbe die Farbe 
des Punktes an der angegebe- 
nen Koordinate verwendet (bei- 
spielweise Position des Cursers 
oder der Maus). Die Parameter 
»X, y« geben die Startposition 
für das Füllen an. 


SetOPen (RastPort, FarbStift) 
Dieser Befehl setzt für den 
Flood-Befehll den Umran- 
dungsfarbstift. Unter »Farb- 
Stift« geben Sie den entspre- 
chenden Farbwert an. 


RectFill (RastPort, x1, y1, 
x2, y2) 

Mit »RectFill« wird ein Recht- 
eck gefüllt. Die beiden angege- 
benen Punkte zeigen auf die 
linke obere (1) und die rechte 
untere Ecke (2) des Rechtecks. 


gatsonstyie (RastPort, Filter, 
til) 
Sie können Schrift in ver- 


schiedenen Stilarten darstel- 
len. Auch dies war bisher über 


GARUNDLAGEN 


Basic-Befehle nicht möglich. 

Welchen Schriftstil Sie wählen, 

wird vom Parameter »Stil« be- 

stimmt. Er kann folgende Werte 

annehmen: 

0 normal 

1 unterstrichen 

2 fett 

4 kursiv 

8 breit (nicht bei jeder Schrift- 
art möglich) 

Der Parameter Filter ist eine 
Maske der möglichen Schriftar- 
ten. Diese erhalten Sie mit dem 
Befehl »AskSoftStyle«. Um 
mehrere Stilarten gleichzeitig 
einzustellen, müssen die ent- 
sprechenden Werte addiert 
werden. 


AskSoftStyle (RastPort) 

Diese Funktion gibt die 
Schriftstile zurück, die noch ge- 
setzt werden können. Der 
Rückgabewert entspricht der 
Summe der oben aufgelisteten 
Stil-Werte, die noch einstellbar 
und einsetzbar sind. 


Kurzinfo zu den Routinen 


Nun kennen Sie die wichtig- 
sten Systemroutinen und kön- 
nen Sie in Ihre eigenen Pro- 
gramme einbinden. Sollte Ih- 
nen noch nicht alles 100prozen- 
tig klar sein, helfen Ihnen zwei 
Artikel bzw. Listings in diesem 
Sonderheft weiter. Der Artikel 
über Subroutinen (Seite 90) 
beinhaltet eine Fülle von Routi- 
nen für die Ausgabe auf dem 
Bildschirm. Hier sehen Sie ge- 
nau die Verwendung einzelner 
Betriebssystem-Aufrufe (»Desk- 
Top«-Unterroutinensammlung). 
Wie Sie auf komfortable Weise 
ein Directory auslesen, erfah- 
ren Sie im Listing zum File- 
Requester auf Seite 94. Es ist 
sinnvoll, diese Listings genau 
nachzuvollziehen. Meist klärt 
dies mehr Fragen, als ei- 
ne überaus umfangreiche Be- 
schreibung der einzelnen Be- 
fehle. 

Viel Erfolg auf dem Weg zu 
professionellen und vor allem 
schnellen Basic-Programmen 
mit diesen Routinen. kn 


Name und Parameter Befehl oder Library Name und Parameter Befehl oder Libarary 
Funktion Funktion 
‚ActivateWindow (Window) B Intuition Lock& (name, zugriffsmodus) F Dos 
‚AllocAbs (Size, Location) m Exec Move (RastPort, x, y) B Graphics 
‚Allocate (FreeList, ByteSize) F Exec MoveScreen (Screen, deltaX, deltay) B Intuition 
‚AllocMem& (Size, Requirements) F Exec. MoveWindow (Window) B Intuition 
‚AllocRemember& (key, byte, mode) Ri Intuition ‚OpenDiskFont& (textAttr) F Diskfont 
‚AskSoftStyle% (RastPort) E Graphics OpenFont& (textAttr) F ‚Graphios 
‚AvailFonts% (buffer, byte, types) F Diskfont OpenScreen& (NewScreen) F Intuition 
‚AvallMem (Requirements) F Exec OpenWindow& (NewWindow) F Intuition 
ClearMenusStrip (Window) B Intuition OpenWorkBench () 2 Intuition 
ClearSoreen (RastPort) B ‚Graphics ParentDir& (lock) FB Dos 
GloseFont (textFont) B ‚Graphics PolyDraw (RastPort, num, dat) B Graphics 
CGloseScreen (Screen) B Intuition. PrintlText (RastPort, Text, x, y) B Intuition 
CloseWindow (Window) B Intuition RectFill (RastPort, x1, y1, x2, y2) B Graphics 
‚CloseWorkBench () B Intuition RefreshWindowFrame (Window) B Intuition 
'CopyMem (Source, Dest, Size) B Exec ‚RemFont% (textFont) F ‚Graphics 
CopyMemQuick (Source, Dest, Size) B Exec Rename (alterName, neuerName) F DOS 
CreateDir (name) F DOS ScreenToBack (Screen) B Intuition 
CurrentDir (lock) Bi DOS ScreenfoFront (Screen) B Intuition 
CurrentTime (Seconds, Micros) B Intuition SetComment (name, kommentar) (u DOS 
DateStamp (puffer) B DOS ‚SetDrMd (RastPort, ZeichenModus) B Graphios 
Deallocate (FreeList, MemoryBlock, Size) B Exec ‚SetFont% (RastPort, textFont) F Graphios 
Delay (ticks) B DOS SetOPen (RastPort, FarbStift) B Graphics 
DisplayAlert (types, text, height) Fr Intuition ‚SetProtection (name, maske) B DOS 
DisplayBeep (Screen) B Intuition SetSoftStyle% (RastPort, Filter, Stil) je ‚Graphics 
Draw (RastPort, x, y) B ‚Graphics ‚SetWindowfTitles (RastPort, Window, B Graphics 
DrawBorder (RastPort, border, x, y) B Intuition wt, st) 
DrawCircle (RastPort, xm, ym, Radius) B Graphics SizeWindow (Window, deltaX, deltay) B. Intuition 
DrawEllipse (RastPort, xm, ym, xr, yr) B ‚Graphics ‚Showfitle (Screen, show) B Intuition 
Examine% (lock, infoBlock) F DOS Text (RastPort, String, AnzahlZeichen) B Graphics 
Execute% (kommando, eingabe, F DOS Unlock (lock) B DOS 
ausgabe) \WBenchfoBack () B Intuition 
ExNext% (lock, infoBlock) F DOS WBenchfoFront () B Intuition. 
Flood (RastPort, Modus, x, y) B Graphics WindowLimits (Window, minBreite, F Intuition 
FreeMem (MemoryBlock, Size) B Exec minHöhe, maxBreite, maxHöhe) 
FreeRemember (key, -1) B Intuition WindowToBack (Window) B Intuition 
Info (lock, parameterBlock), F DOS WindowfToFront (Window) B Intuition 
loErr () ıR DOS WritePixel (RastPort, x, y) B ‚Graphics 
res 


Tabelle 5. Die System-Routinen mit ihren Parametern im Überblick. Die Parameter sind in Klammern anzugeben. 
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Amiga-Basic ist eine 
auf die Fähigkeiten des Amiga ausgelegte 
Programmiersprache, welche leicht zu ® 
erlernen ist. Dieser Kurs vermittelt Ihnen fundamentale 
Kenntnisse, die Sie zur Entwicklung eigener 
PRRREEING, nötigen. 
Amiga-Basic-Grundkurs > 


FUNDAMENT 
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TWIN 
THEATEI 


1 SHAOLIN 


FE E15 FUTURE 


4 CHINESE 


3 THE INVIN 


Bildverweis: Bavaria Bildagentur 


Von Nikolaus Huber 


miga-Basic besticht 
durch seinen Sprach- 
umfang und seinen kon- 


kurrenzlosen Preis: Amiga-Ba- 
sic wird mit jedem Amiga ko- 
stenlos mitgeliefert. Aus diesen 
Gründen ist es natürlich die ide- 
ale Sprache für alle, die einfach 
und schnell gute Amiga-Pro- 
gramme schreiben möchten. 

Für diesen Kurs benötigen 
Sie in Sachen Programmierung 
keinerlei Vorkenntnisse. Sicher- 
lich ist es von Nutzen, schon 
einmal programmiert zu haben 
(z.B. aufdem C 64), dies istaber 
keine Voraussetzung. Allerdings 
sollten Sie gewisse Grundkennt- 
nisse im Umgang mit dem Ami- 
ga und seiner Benutzeroberflä- 
che haben. Dieser Kurs führt 
umfassend in die Basic-Pro- 
grammierung ein, erhebt aber 
keinen Anspruch auf Vollstän- 
digkeit. Alle Befehle und Funk- 
tionen, welche nicht ausdrück- 
lich erklärt werden, sind in Ta- 
belle 7 aufgeführt. Dennoch 
müßte auch der Unerfahrene 
nach diesem Kurs in der Lage 
sein, auch komplexere Pro- 
blemstellungen in Amiga-Basic 
zu lösen. 

Dabei sollten Sie sich aber 
nicht so schnell von Mißerfol- 
gen entmutigen lassen, denn 
gerade in der Computer-Pro- 
grammierung ist noch kein Mei- 
ster vom Himmel gefallen (und 
schon gar nicht in der Amiga- 
Programmierung). Außerdem 
sollten Sie diesen Kurs am ein- 
geschalteten Computer durch- 
arbeiten, um neue Befehle und 
Beispielprogramme auch am 
Rechner testen zu können. 
Amiga-Basic Starten 

‚Amiga-Basic befindet sich 
auf einer Diskette, die jedem 
Computer beigelegt ist und ei- 
ne der Beschriftungen trägt: 


AMIGA 500/2000 
AMIGA EXTRAS D 1.x 
AMIGA BASIC 1.x 


Statt des Buchstaben »x« fin- 
den Sie auf dem Disketten-Eti- 
kett eine Zahl, vermutlich »2«. 
Um Amiga-Basic zu starten, 
müssen Sie mit der Workbench- 
Diskette booten. Legen Sie die 
Workbench-Diskette in das ein- 
gebaute Laufwerk (Df0) und 
schalten Sie den Computer ein. 
Ist Ihr Amiga bereits einge- 
schaltet, reicht es, einen Reset 
durchzuführen (<CTRL> <lin- 
ke Amiga> <rechte Amiga>). 

Wenn der Ladevorgang be- 
endet und der Workbench-Bild- 
schirm erschienen ist, benötigt 
man die eben beschriebene 


Extras-Diskette. Diese legt man 
anstatt der Workbench-Diskette 
in das eingebaute Laufwerk. 
Nun erscheint am rechten Bild- 
schirmrand ein Diskettensym- 
bol mit der Bezeichnung »Ex- 
tras 1.2«. Klicken Sie dieses 
zweimal an, und es öffnet sich 
ein Fenster. 

In diesem Fenster ist in der 
linken oberen Ecke ein Symbol 
zu erkennen, das einen dreidi- 
mensionalen Würfel darstellt. 
Unter diesem Symbol steht 
»Amiga-BASIC«. Wenn Sie nun 
dieses Symbol zweimal an- 
klicken, wird Amiga-Basic gela- 
den und gestartet. Nun sollte an 
Ihrem Monitor das gleiche wie 
in Bild 1 zu sehen sein. 


Die Benutzer- 
oberfläche 


Es sind zwei Fenster zu er- 
kennen, von denen das eine 
den Namen »BASIC«, das an- 
dere den Namen »LIST«trägt. In 
dem Basic-Fenster steht zudem 
noch ein Text (der sog. Copy- 
right-Vermerk). Im Copyright- 
Vermerk ist unter anderem 
auch abzulesen, wieviel freier 
Speicher insgesamt vorhanden 
ist, und wieviel davon dem Ami- 
ga-Basic-System zur Verfü- 
gung steht. 

‚Auf den ersten Blick leicht zu 
übersehen ist ein kleiner oran- 
gener Strich in der linken obe- 
ren Ecke des List-Fensters. 
Dies ist der Cursor. Er steht im- 
mer links von der Schreibposi- 
tion. Um sich an diese etwas 
ungewohnte Cursorform zu ge- 
wöhnen, drücken Sie am be- 
sten ein paar Buchstaben-Ta- 
sten, bewegen den Cursor mit 
den Cursortasten nach links 
und rechts, und löschen dann 
das Ganze mit der Delete- oder 
Backspace-Taste wieder. 

Denn Cursor kann man aber 
auch in das Basic-Fenster set- 
zen. Klicken Sie dazu mit der 
Maus einmal außerhalb des 
List-Fensters in den Bereich 
des Basic-Fensters. Nun er- 
scheint die Titelleiste des List- 
Fensters gerastert, während die 
Rasterung in der Titelleiste des 
Basic-Fensters verschwindet. 
Gleichzeitig gibt Amiga-Basic 
im nun angewählten Basic-Fen- 
ster die Buchstaben »OK« aus 
und der Cursor befindet sich 
auch in diesem Fenster. 

Auch hier können Sie ein biß- 
chen mit der Tastatur herumex- 
perimentieren. Drücken Sie 
doch einmal nach einer Buch- 
stabenfolge die Return-Taste. 
Siehe da, am oberen Bild- 
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schirmrand taucht ein Recht- 
eck auf, in dem die Worte »Un- 
defined Subprogram« sowie ein 
eingerahmtes »OK« stehen. 
Gleichzeitig piepst es im Laut- 
sprecher. 

Dies ist eine Amiga-Basic- 
Fehlermeldung, der Alptraum 
jedes Programmierers. Warum 
genau nun »Undefined Subpro- 
gram« gemeldet wird und was 
das bedeutet, werden wir im 
Laufe dieses Kurses noch ken- 
nenlernen. Für den Moment 
reicht es aber, wenn Sie mit 
dem Mauszeiger auf das »OK« 
fahren und es anklicken. Gleich 
darauf kommt wieder im Basio- 
Fenster die »OK«-Meldung mit 
dem Cursor und sagt uns, daß 
alles in Ordnung ist. 

Wie die meisten Amiga-Pro- 
gramme bietet auch Amiga-Ba- 
sic zum Aufrufen der verschie- 
denen Funktionen sog. Pull- 
Down-Menüs. Hält man die 
rechte Maustaste niederge- 
drückt, so kann man am oberen 
Bildschirmrand die Namen der 
vier Menüpunkte lesen: »Pro- 
ject«, »Edit«, »Run« sowie »Win- 
dows«. Wenn Sie dann mit dem 
Mauszeiger auf einen dieser 
Menünamen fahren, so er- 
scheinen die einzelnen Pull- 
Down-Menüs. 

Um nun überhaupt diese Me- 
nüfunktionen von Amiga-Basic 
ausprobieren zu können, benö- 
tigen wir ein Programm. Dieses 
werden wir dann mit Hilfe der 
Menüs speichern, löschen, la- 
den, bearbeiten, und ablaufen 
lassen. Wählen Sie hierzu das 
List-Fenster an, und tippen Sie 
die folgenden Zeilen ab. Achten 
Sie darauf, daßsich dabei keine 
Tippfehler einschleichen, denn 
sonst funktioniert unter Umstän- 
den gar nichts mehr. Hier das 
Programm: (Mit <Return> ist 
die Return-Taste gemeint) 
let zahl=0 <RETURN> 
Anfang: <RETURN> 
let zahl=zahl+1 
<RETURN> 
print zahl <RETURN> 
goto Anfang <RETURN> 


Welche Bedeutung das eben 
abgetippte hat, werden Sie sehr 
bald schon erfahren. Zunächst 
aber genügt es uns zu wissen, 
daß diese fünf Zeilen ein Basic- 
Programm darstellen. Wahr- 
scheinlich haben Sie schon be- 
merkt, daß jeweils nach dem 
Drücken der Return-Taste man- 
che Wörter plötzlich in Groß- 
buchstaben erscheinen. Das 
Listing müßte nun genauso 
aussehen wie in Bild 2. 

Sollte sich doch ein Fehler 
eingeschlichen haben, so be- 


wegen Sie den Cursor mit den 
Cursortasten an die fehlerhafte 
Stelle. Dort korrigieren Sie den 
Fehler dann mit der Delete-Ta- 
sten und fahren den Cursor wie- 
der an das Ende des Listings. 
Das »Project«-Menü 

Das Programm steht nun im 
Speicher des Amiga und kann 
mit Amiga-Basic gestartet wer- 
den. Sobald man allerdings 
Amiga-Basic verläßt oder gar 
einen Reset durchführt, bzw. 
den Rechner ausschaltet, ist 
das Programm für immer verlo- 
ren. Um zu verhindern, daß 
man ein Programm immer wie- 
der neu eintippen muß, spei- 
chert man es auf Diskette. 

Dazu ist eine leere, formatier- 
te Diskette vonnöten. Legen Sie 
diese statt der Extras-Diskette 
in das eingebaute Laufwerk. 
Nun kommt unser erster Menü- 
‚Aufruf. Fahren Sie dazu bei ge- 
drückter rechter Maustaste zu- 
erst auf das Wort »Project« und 
von dort auf »Save« in dem er- 
scheinenden Menü. Sobald das 
Wort »Save« invers dargestellt 
ist, können Sie die Maustaste 
loslassen. 

Und mit Loslassen der Maus- 
taste ist der Menüpunkt »Save« 
im Menü »Project« angewählt. 
Alle anderen Menü-Aufrufe 
funktionieren genauso. Links 
oben am Bildschirm gibt Ami- 
ga-Basic nun ein Fenster aus, 
in dem zu lesen ist: »Save Pro- 
gram as:«. Darunter ist ein 
schmales leeres Rechteck so- 
wie ein OK-Feld und ein 
Cancel-Feld. 

Save ist übrigens das engli- 
sche Wort für »retten« oder »si- 
chern«. Wir retten unser Pro- 
gramm also davor, verlorenzu- 
gehen. Um das gerettete Pro- 
gramm allerdings später auf 
der Diskette wiederfinden zu 
können, muß man ihm noch ei- 
nen Namen geben. Dazu dient 
das leere Rechteck. 


Das »Project« 
Menü 


Klickt Sie es mit der Maus an, 
erscheint darin ein Cursor, und 
man kann einen Namen einge- 
ben. Für unser erstes Pro- 
gramm verwenden wir den Na- 
men »Programmi«. Haben Sie 
den Namen eingetippt, können 
Sie entweder die Return-Taste 
drücken oder das OK-Feld an- 
klicken. Beides hat die gleiche 
Wirkung: Das Programm wird 
auf Diskette geschrieben, von 
wo wir es wieder laden können. 

Bevor wir uns aber ans La- 
den machen, wollen wir erst 
noch einen anderen Menü- 
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punkt ausprobieren. Er heißt 
»New« und ist der oberste im 
Project-Menü. New heißt auf 
deutsch neu und bedeutet in 
unserem Fall, daß wir ganz neu 
anfangen. Probieren Sie diesen 
Menüpunkt doch einfach ein- 
mal aus. 


der das geöffnete Fenster der 
Extras-Diskette. 

Zusätzlich ist aber auch noch 
das Symbol unserer (inzwi- 
schen nicht mehr leeren) Ar- 
beitsdiskette am rechten Bild- 
schirmrand zu sehen. Wenn 
Sie dieses nun zweimal an- 


ten 


Fris in fur 
Tree In BASIC 


Bild 1. Amiga-Basic gleich nach dem Start 


Plötzlich sind Basic- und List- 
Fenster leer, das Programm ist 
verschwunden, Dies ist auch 
die Funktion von »New«, es 
löscht das im Speicher befindli- 
che Programm. Doch erschrek- 
ken Sie nicht, das Programm 
befindet sich ja auf Diskette und 
Ist nicht verloren. 

Denn nun werden wir die 
Lade-Funktion benützen. Nach 
dem Aufruf des Menüpunkts 
»Open« im Project-Menü er- 
scheint das gleiche Fenster wie 
bei »Save«, Open heißt öffnen, 
und das bedeutet, daß man nun 
ein Programm auf Diskette öff- 
net und in den Speicher lädt. 

Im Gegensatz zu »Save« lau- 
tet der Text diesmal aber: »Na- 
me of Program to load«, also 
»Name des zu ladenden Pro- 
gramms«. Geladen werden soll 
das gleiche Programm, das 
vorher gespeichert wurde, also 
gibt man wieder den Namen 
»Programmi« ein und drückt 
die Return-Taste oder klickt 
»OK« an. Und siehe da, unser 
Programm taucht im List-Fen- 
ster auf und steht wieder zur 
Verfügung. 

Der unterste Menüpunkt im 
Project-Menü ist »Quit«. Quit, 
zu deutsch verlassen, dient da- 
zu, die Arbeit mit Amiga-Basic 
zu beenden. Ruft man diesen 
Menüpunkt auf, so verschwin- 
det zuerst das List-Fenster und 
dann das Basic-Fenster. Am 
Bildschirm sieht man nun wie- 


klicken, so öffnet sich wieder 
ein Fenster, in dem ein Symbol 
mit Namen »Programmi« zu er- 
kennen ist. Dies ist unser vorhin 
gespeichertes Programm, 

Nun haben diese von Amiga- 
Basic gespeicherten Program- 
me eine Besonderheit: Klickt 
man das Symbol eines Pro- 
gramms zweimal an, so lädt der 
Computer zuerst Amiga-Basic 
und dann das angeklickte Pro- 
gramm. Und nach den Lade- 
vorgängen wird das Basic-Pro- 
gramm auch rioch gestartet. 

Allerdings hat die Sache 
noch einen kleinen Haken: 
Amiga-Basic muß auf der glei- 
chen Diskette wie das ange- 
klickte Basic-Programm sein. 
Dies ist im Moment aber noch 
nicht der Fall. Aus diesem 
Grund erscheint auch ein Bild- 
schirmblitz sowie eine Fehler- 
meldung des Betriebssystems, 
wenn Sie das Programm! zwei- 
mal anklicken. 

Doch dem kann abgeholfen 
werden: Fahren Sie mit dem 
Mauszeiger auf das Symbol 
von Amiga-Basic im Fenster 
der Extras-Diskette. Wenn man 
nun bei gedrückter linker Maus- 
taste den Mauszeiger in das 
Fenster der Arbeitsdiskette 
fährt und dann die Taste losläßt, 
beginnt der Kopiervorgang. 

Dabei erscheint zunächst 
einmal ein Fenster am Bild- 
schirm, das Sie auffordert, die 
Extras-Diskette einzulegen. 
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Nachdem Sie das getan haben, 
lädt der Computer einige Zeit. 
Danach kommt die Aufforde- 
rung, die Arbeitsdiskette einzu- 
legen, auf welche dann das 
Programm geschrieben wird. 
Dann muß man noch einmal die 
Extras- und einmal die Arbeits- 
diskette einlegen. Doch als 
Frucht dieser harten Arbeit ist 
nun das Symbol von Amiga- 
Basic im Fenster unserer Ar- 
beitsdiskette zu sehen. 

Der Effekt: Klickt man jetzt 
das Programmi-Symbol dop- 
pelt an, so lädt der Computer 
automatisch Amiga-Basic und 
das Programmt. Dann ge- 
schieht etwas Neues: Gleich 
nachdem das Basic-Fenster er- 
schienen ist, wird es in 
»Programm1« umbenannt. Und 
kurz darauf läuft eine Zahlenrei- 
he durch das Fenster, die von 
eins aus aufwärts zählt (Bild 3). 

Offensichtlich ist das die Wir- 
kung von Programm. Warum 
ausgerechnet alle Zahlen ab 
eins aufgezählt werden, darauf 
kommen wir etwas später, zu- 
nächst interessiert uns eigent- 
lich nur eines: Wie kann man 
Programmi wieder anhalten? 
Die Menüs »Run« und »Win- 
dow« 

Zum Anhalten eines Basic- 
Programms benötigt man einen 
Menüpunkt aus dem Run- 
Menü (run=rennen, laufen). 
Dieser Menüpunkt heißt »Stop« 
(=anhalten, aufhören). Und tat- 
sächlich, sobald Stop ange- 
wählt wurde, bleibt die Zahlen- 
reihe stehen, und die OK- 
Meldung wird ausgegeben. 


Basic 
starten 


Doch wo ist jetzt eigentlich 
das Programm? Auf dem Bild- 
schirm ist weit und breit kein 
List-Fenster zu sehen. Doch 
dem kann man mit dem Win- 
dows-Menü (window = Fen- 
ster) abhelfen. Ruft man den 
Menüpunkt »Show List« auf 
(show = zeigen), so taucht im 
Vordergrund das List-Fenster 
mit dem Programm! auf. 

Wenn wir schon mal beim 
Windows-Menü sind: der zwei- 
te Menüpunkt, »Show Output« 
(output = Ausgabe), bewirkt 
genau das Gegenteil wie 
»Show List«. Er schaltet das 
große Fenster in den Vorder- 
grund und läßt das List-Fenster 
verschwinden. 

Doch zurück zum Pro- 
grammablauf. Natürlich kann 
man das Programm, nachdem 
es angehalten wurde, auch er- 


neut starten. Daß dazu der Me- 
nüpunkt »Start« im Run-Menü 
dient, braucht wohl keine weite- 
re Erklärung. Wenn Sie das 
Programm jetzt öfters starten 
und stoppen, so beginnt die 
Zahlenreihe jedesmal wieder 
bei eins. Programmii fängt also 
immer wieder vom Anfang an. 

Allerdings möchte man oft- 
mals ein Programm nur vor- 
übergehend unterbrechen. Da- 
zu müßte es dann nach der Un- 
terbrechung an der gleichen 
Stelle weitermachen, an der an- 
gehalten wurde. Dazu dient der 
dritte Menüpunkt im Run-Me- 
nü. Continue (=fortsetzten) 
setztnach einer Unterbrechung 
das Programm tatsächlich an 
der Stelle fort, an der es ange- 
halten wurde. 

Es gibt allerdings noch zwei 
andere Möglichkeiten der Pro- 
grammunterbrechung. Da wäre 
zum einen der nächste Menü- 
punkt, nämlich »Suspend« 
(=aufschieben). Wählt man ihn 
an, so wird das Programm zwar 
angehalten, jedoch erscheinen 
keine OK-Meldung und kein 
Cursor. Fortgesetzt wird das 
Programm nach dem Druck auf 
eine beliebige Taste, z.B. die 
Leertaste, 

Dies hat vor allem den Vorteil, 
daß sich am Inhalt des Pro- 
gramm-Fensters nichts ändert, 
also keine OK-Meldung er- 
scheint. Die zweite Möglichkeit, 
ein Programm vorübergehend 
anzuhalten, haben Sie sicher 
schon bemerkt, Wenn Sie näm- 
lich für eine Menüwahl die rech- 
te Maustaste drücken, wird die 
Programmausführung eben- 
falls angehalten. Sobald die 
Maustaste losgelassen wird, 
läuft das Programm wieder wei- 
ter. 

Der vorletzte Menüpunkt im 
Run-Menü bietet dem Program- 
mierer von Amiga-Basic eine 
äußerst praktische Hilfe. Denn 
schaltet man mit»Trace On«den 
Trace-Modus ein (trace = nach- 
spüren, verfolgen), so zeigt 
Amiga-Basic während des Pro- 
grammablaufs zu jedem Zeit- 
punkt die gerade bearbeitete 
Programmzaeile. 

Voraussetzung dafür ist aller- 
dings, daß das List-Fenster 
sichtbar ist, welches ja beim 
Programmstart ganz automa- 
tisch nach hinten geschaltet 
wird. Starten Sie also zunächst 
unser Programmi und holen 
Sie dann mit »Show List« das 
List-Fenster in den Vorder- 
grund. 

Wenn man nun »Trace On« 
aufruft, so wird die momentan 
bearbeitete Zeile des Pro- 
gramms rot eingerahmt. Der 
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ganze Programmablauf wird 
dadurch natürlich beträchtlich 
verlangsamt (Amiga-Basic muß 
nun ja ständig Rechtecke ma- 
len und wieder löschen). 

Wenn Sie genau hinsehen, 
müßten Ihnen zwei Dinge auf- 
fallen: Die erste Zeile des Pro- 
gramms wird nie eingerahmt, 
und die neue Zahl im Output- 
Fenster erscheint immer dann, 
wenn gerade die Zeile »PRINT 
zahl« eingerahmt ist. Warum 
dies so ist, wird noch erklärt. 

Der Trace-Modus bleibt so 
lange aktiv, bis man ihn aus- 
schaltet. Dies geschieht auch 
wieder mit Hilfe des Run-Me- 
nüs. Dort hat sich inzwischen 
der Menüpunkt »Trace On« in 
„Trace Off« verwandelt. Wird er 
aufgerufen, ist der Trace-Modus 
wieder deaktiviert, und der Me- 
nüpunkt wird in »Trace On« zu- 
rückbenannt. 

Der Trace-Modus ist zwar 
schon sehr hilfreich, allerdings 
geht das Einrahmen der Zeilen 
doch relativ schnell. Dadurch 
ist es gerade bei komplexeren 
Programmen kaum noch mög- 
lich, genau zu erkennen, wel- 
che Zeile nun welche Bild- 
schirmausgabe bewirkt hat. 

Daher haben die Entwickler 
von Amiga-Basic noch eine 
zweite Hilfe eingebaut, und 
zwar den Step-Modus (step = 
Schritt). Jedesmal, wenn man 
den entsprechenden Menü- 
punkt aufruft, wird eine einzige 
Zeile abgearbeitet. Dabei wird 
auch wieder die gerade bear- 
beitete Zeile umrandet. 

Wenn man nun Step öfters 
hintereinander aufruft, so hat 
man eine Art langsamen Tra- 
ce-Modus. Allerdings ist dieses 
„öfters aufrufen« leichter ge- 
sagt als getan, wenn man sich 
des Menüs bedient. Genau das 
muß aber nicht sein. 

Sicherlich haben Sie schon 
bemerkt, daß hinter den Menü- 
punkten Start, Stop, Suspend 
und Step ein inverses schräges 
»A« und ein weiteres Zeichen 
folgen. Dies sind die sog. Short- 
cuts (shortcut = Abkürzung). 
Das seltsame »A« stellt die Ami- 
ga-Taste (rechts neben der 
Leertaste) dar. 

Drückt man gleichzeitig die 
Tasten <Amiga> und <R>, 
so hat dies den gleichen Effekt 
wie der Aufruf des Menüpunk- 
tes Start. Gleiches gilt für <Ami- 
ga> und <.> (-> Stop), 
<Amiga> und <S> (-> Sus- 
pend) sowie <Amiga> und 
<T> (-> Step). 

Gerade bei den letzten bei- 
den Funktionen ist die Verwen- 
dung der Shortcuts durchaus 
sinnvoll. Suspend wird ja auf je- 
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Bild 2. Programmi im List-Window 


den Fall auch wieder durch ei- 
nen Tastendruck beendet, so 
hat man dann die Hände schon 
gleich an der Tastatur. Und Step 
wird ja meistens öfters hinter- 
einander aufgerufen, und das 
geht nun mal per Tastatur un- 
vergleichlich schneller. 
Das »Edit«-Menü 

Ein Menü müssen Sie noch 
kennenlernen, bevor wir uns 
dann endlich der eigentlichen 


Der Basic- 
Editor 


Basic-Programmierung widmen. 
Die Menüpunkte »Cut« (= aus- 
schneiden), »Copy« (= kopie- 
ren) und »Paste« (= einkleben) 
aus dem Edit-Menü (edit = be- 
arbeiten) dienen der Bearbei- 
tung des Programmtextes. 

Bevor wir diese Menüpunkte 
verwenden, müssen wir aller- 
dings noch eine Funktion ken- 
nenlernen, die nicht im Menü 
steht. Das ist das Markieren von 
Textblöcken. Ein Textblock be- 
steht entweder aus mehreren 
Zeichen einer Zeile oder meh- 
reren ganzen Zeilen. 

Setzen Sie doch den Maus- 
zeiger auf eine Zeile im Listing 
von Programmi. Nun drücken 
Sie die linke Maustaste und be- 
wegen die Maus bei gedrückter 
Taste nach rechts. Dabei wer- 
den automatisch die überstri- 
chenen Zeichen farbig unter- 
legt. Läßt man die Maustaste 
wieder los, so bleibt die Unterle- 
gung bestehen: Man hat einen 
Textblock markiert. 

Genauso kann man natürlich 
bei gedrückter Maustaste den 
Zeiger auch nach oben oder 
unten bewegen. Dabei wird je- 
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de Zeile, die man überstreicht, 
komplett unterlegt. 

Mit einem auf diese Weise 
markierten Textblock kann man 
nun verschiedenes anstellen. 
Da wäre zuerst einmal »Cut«. 
Ruft man diesen Menüpunkt 
per Menü oder Shortcut auf, so 
löscht Amiga-Basic den mar- 
kierten Textblock. Er verschwin- 
det also vollständig aus dem 
Programmtext. Ist gerade kein 
Textblock markiert, passiert 
nichts. 

Doch das gelöschte Stück 
Text ist nicht verschwunden. Es 
wurde zwar aus dem Pro- 
gramm gelöscht, existiert aber 
noch im Speicher, in einem so- 
genannten Puffer. Von dortkann 
man ihn auch wieder zurückho- 
len, und zwar mit »Paste«. 

Nach dem Aufruf von Paste 
wird nämlich der Inhalt des Puf- 
fers an der Cursor-Position in 
den Programmtext eingefügt. 
Das heißt nun wiederum nicht, 
daß der Puffer danach leer wä- 
re. Sie können durch mehrmali- 
ges Anwählen von Paste den In- 
halt des Puffers auch öfters in 
den Programmtext einfügen 
und somit den Textblock ver- 
vielfältigen. 

Um zur Vervielfältigung eines 
Textblockes diesen nicht erst lö- 
schen zu müssen, existiert »Co- 
py«. Copy kopiert lediglich den 
markierten Textblock in den 
Puffer. Am Programmtext selbst 
ändert sich dadurch nichts, nur 
daß Sie nun die Kopie des Text- 
blockes aus dem Puffer belie- 
big oft in den Text eingefügt 
werden kann. 

Das erste Programm 

Und siehe da, schon sind wir 
mit der Besprechung der Be- 
nutzeroberfläche von Amiga- 


Basic fertig, und können uns 
ganz der eigentlichen Program- 
mierung zuwenden. Dazu be- 
trachten wir erst einmal Schritt 
für Schritt unser Programm!. 

Die erste Zeile lautet »LET 
zahl=0«, also »Lasse eine Zahl 
gleich null sein«. »LET« ist von 
‚Amiga-Basic automatisch groß 
geschrieben worden, das be- 
deutet, es ist ein Basic-Befehl. 
Er befiehlt dem Interpreter, eine 
Zahl gleich null zu setzen. 

In der nächsten Zeile steht 
nur ein einziges Wort, »An- 
fang«, und danach folgt ein 
Doppelpunkt. Dies ist eine Art 
Überschrift für den folgenden 
Programmtext, alles was folgt 
läuft also unter dem Namen 
»Anfang«. In der Fachsprache 
nennt man eine solche Über- 
schrift Label (= Etikett, Auf- 
schrift). Dieses Label wird spä- 
ter im Programm noch mal ge- 
braucht. 

Die dritte Zeile erinnert wie- 
der stark an die erste. Doch 
diesmal lautet sie in deutschem 
Klartext »Lasse die Zahl gleich 
der Zahl plus eins sein«. Der In- 
terpreter nimmt sich also die 
Zahl von vorhin (die ja gleich 
null ist), und zählt eins dazu. 
Das Ganze nennt er wieder 
»zahl«. Da 0 + 1 = 1, ist die 
Zahl jetzt gleich eins. 

In der vierten Zeile trifft man 
auf einen neuen Basic-Befehl: 
»PRINT«. »PRINT zahl« heißt 
»Drucke die Zahl auf den Bild- 
schirm«. Und tatsächlich an 
dieser Stelle im Programm er- 
scheint eine Zahl am Bild- 
schirm. Das haben Sie ja vorhin 
im Trace- bzw. Step-Modus ge- 
sehen. Und weil ja die Zahl 
gleich eins ist, wird auf dem 
Bildschirm zuerst eine eins 
ausgegeben. 


Mit »PRINT« 
wird gedruckt 


‚Auch die letzte Zeile des Pro- 
gramms enthält einen neuen 
Befehl. »GOTO Anfang« läßt 
sich am besten übersetzen mit 
»Gehe zum Anfang«. Jetzt ha- 
ben wir also den Sinn unseres 
Labels. Der Interpreter fährt 
jetzt mit der Programmausfüh- 
rung an der Stelle fort, welche 
mit der Überschrift »Anfang« 
bezeichnet ist. 

Dorttrifft man jetzt wieder auf 
den Befehl »LET zahl=zahl+1«. 
Da die Variable »Zahl« nun »1« 
ist, lautet die Gleichung 1+1=2, 
so daß in der vierten Zeile die 
Zahl 2 auf den Bildschirm aus- 
gegeben wird. 

Wiederum springt das Pro- 
gramm zum Label »Anfangs, er- 


AMIGA-SONDERHEFT 10 


höht die Zahl um eins, gibt sie 
aus usw. Das Ergebnis kennen 
wir bereits: Im Output-Fenster 
erscheinen alle Zahlen von eins 
ab aufwärts so lange, bis das 
Programm angehalten wird oder 
selbst stopt. 

Nachdem Sie hoffentlich ver- 
standen haben, wie dieses Pro- 
gramm funktioniert, können wir 
uns daran machen, es zu ver- 
ändern. Am besten fängt man 
da in der ersten Zeile an. Denn 
am Anfang von Programmi 
wird ja die Zahl immer gleich 
null gesetzt. Doch das muß 
nicht sein. Fügen Sie doch mal 
eine »1« ein, so daß die Zeile 
lautet: 


LET zahl=10 


Jetzt ist die Zahl also schon 
gleich zehn, wenn sie danach 
um eins erhöht und ausgege- 
ben wird. Theoretisch müßte 
nun also die Ausgabe am Bild- 
schirm beim Start des Pro- 
gramms so aussehen: 
alt 
12 
13 usw. 


Probieren Sie es aus! Es 
funktioniert tatsächlich. 

Was kann man noch verän- 
dern? Z. B. die dritte Zeile, denn 
die Zahl muß ja nicht unbedingt 
um eins erhöht werden, man 
könnte ebensogut jedesmal 
zwei dazuzählen lassen. Än- 
dern Sie also die Zeile in: 

LET zahl=zahl+2 


Das Ergebnis lautet dann 
(wie erwartet): 


In 
14 
16 usw. 


Um mit Programmi noch 
weiterexperimentieren zu kön- 
nen, benötigt man etwas Theo- 
rie, Sie betrifft in erster Linie un- 
sere Zahl in Programm. 

Sehen wir uns dazu noch ein- 
mal das Programm1 (in seiner 
ursprünglichen Form) genau 
an. Hier wird zunächst »zahl« 
gleich »0« gesetzt. Der Name 
»zahl« ist also eine Art Stellver- 
treter für den Wert »O«. 

Danach addiert der Interpre- 
ter zu dem Wert mit dem Na- 
men »zahl« eine eins dazu. Das 
Ergebnis wird wieder »zahl« zu- 
geordnet. Im ersten Durchlauf 
steht »zahl« also zuerst stellver- 
tretend für null, dann für eins. 

In der nächsten Zeile gibt der 
PRINT-Befehl dann den Wert 
von »zahls (beim ersten Durch- 
lauf eins) auf den Bildschirm 
aus. »zahl« hält sozusagen im- 
mer den Platz frei für einen 
Wert, der dann statt des Na- 


mens »zahl« in den Programm- 
text eingefügt wird. Deshalb 
nennt man »zahl« anstatt Stell- 
vertreter auch Platzhalter. 

Der Fachausdruck lautet al- 
lerdings ganz anders: Variable. 
Man kann sich eine Variable 
vorstellen als eine Schublade in 
einem Schrank. Diese Schub- 
lade hat einen Namen auf der 
Frontplatte stehen und einen 
gewissen Inhalt. Und da dieser 
Inhalt veränderlich, also varia- 
bel ist, nennt man die Schubla- 
de Variable. 


Variablen 
wandeln sich 


Mit dieser Schubladenvor- 
stellung läßt sich Programmi 
besser verstehen. In der ersten 
Zeile wird eine Schublade mit 
Namen. »zahl« mit dem Wert 
null gefüllt. In der dritten Zeile 
nimmt der Interpreter dann den 
Inhalt der Schublade heraus, 
addiert eins dazu, und legt das 
Ergebnis wieder in die Schubla- 
de zurück. PRINT holt den In- 
halt aus der Schublade heraus, 
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Zwei Regeln für die Benen- 
nung von Variablen sind zu be- 
achten. Erstens darf eine Varia- 
ble nicht den Namen eines Ba- 
sic-Befehls tragen. Eine Varia- 
ble mit Namen »let« würde zu 
einem Fehler führen, da der In- 
terpreter dann nicht wüßte, ob 
es sich um einen Befehl oder ei- 
ne Variable handelt. Außerdem 
dürfen Variablen-Namen nicht 
mit einer Zahl beginnen. Mögli- 
che Variablen-Namen wären al- 
so z.B. 
zahl17 
irgendein.wert 
Variable 
AaBbCe 
aAbBeC 

Wie Sie sehen, kann man 
auch von Groß- und Kleinschrift 
Gebrauch machen. Dabei ist zu 
beachten, daß auch der Inter- 
preter zwischen großen und 
kleinen Buchstaben unter- 
scheidet. Die beiden letzten 
Namen würden also verschie- 
dene Variablen bezeichnen. 
Leider darf man, da Amiga-Ba- 
sic ein englischsprachiges Pro- 
dukt ist, keine deutschen Um- 
laute verwenden. 


Bild 3. Programmi wurde mit »RUN« gestartet 


druckt ihn auf den Bildschirm, 
und legt ihn wieder zurück. 
Dann wird der Inhalt wieder 
herausgenommen, um eins er- 
höht, zurückgelegt usw. 
Variablennamen 

Natürlich muß die Schublade 
nicht unbedingt den Namen 
»zahl« tragen. Sie könnte ge- 
nausogut »xyz« oder anders 
heißen. Dann müßte aber das 
ganze Programm abgeändert 
werden: 
LET xyz=0 
anfang: 
LET xyz=xyz+1 
PRINT xyz 
C0OTO anfang 
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Eine gute Möglichkeit, länge- 
re Variablen-Namen (wie im 
obigen Beispiel »irgendein. 
wert«) übersichtlicher zu ma- 
chen, ist der Punkt ».«. 

Außerdem müssen die Varia- 
blen nicht immer nur für ganze 
Zahlen (Fachausdruck: Integer- 
Zahlen) stehen. Die Schubla- 
den können ebensogut Dezi- 
malbrüche (Fachausdruck: 
FließBkomma-Zahlen) enthalten. 
‚Ändert man z.B. die erste Zeile 
von Programm um in: 


LET zahl=0.5 
‚so erhält man nach dem Start: 
1.5 


2.5 
3.5 usw. 


Vergessen Sie auf keinen 
Fall, daß in Basic (da es aus 
‚Amerika stammt) statt eines 
Kommas ein Punkt (I) gesetzt 
wird. Ein Komma, wie es im 
deutschsprachigen Raum üb- 
lich ist, würde in Amiga-Basic 
einen Fehler hervorrufen! 

Doch was für den Program- 
mierer nur ein kleiner Punkt in- 
nerhalb einer Zahl ist, das be- 
deutet für Amiga-Basic einen 
enormen Unterschied. Denn 
ein Computer rechnet mit Fließ- 
komma-Zahlen völlig anders 
als mit Integer-Zahlen. 

‚Somit muß der Interpreter erst 
überprüfen, von welchem Typ 
der Inhalt einer Variablen ist. 
Und wie Sie sich vorstellen kön- 
nen, benötigt das Zeit, Genau- 
genommen ist es zwar nur ein 
Sekundenbruchteil, doch wenn 
die Überprüfung sehr oft hinter- 
einander erfolgt, kann das Pro- 
gramm dadurch langsamer 
werden. 

Also nimmt man dem Inter- 
preter die Arbeit ab und sagt im 
schon im voraus, welche Varla- 
ble von welchem Typ ist. Das 
geht am besten, indem man be- 
stimmte Endungen für die Va- 
riablen-Namen vereinbart. 


Die Variablen-Typen 

Allerdings gibt es nicht nur 
zwei, sondern gleich vier ver- 
schiedene Arten von Zahlen- 
Variablen. Der Grund dafür ist 
wiederum vor allem die Re- 
chengeschwindigkeit. Wie die- 
se vier Arten heißen, erfahren 
Sie aus Tabelle 1. 

Die ganzzahligen Integer- 
Variablen werden durch ein 
%-Zeichen am Ende des Varia- 
blennamens gekennzeichnet: 
LET ganze .Zah1%=1000 


Lange Integer-Variablen da- 
gegen durch ein &-Zeichen ge- 
kennzeichnet. 

Beispiel: 

LET ziemlichgroßezahl&= 
123456789 

Fließkomma-Variablen einfa- 
cher Genauigkeit bekommen 
entweder ein Ausrufungszei- 
chen »!« oder gar keine beson- 
dere Endung. 

Beispiele: 

LET ein.Viertel!=0.25 
LET EinProzent=0.01 

Fließkomma-Variablen dop- 
pelter Genauigkeit schließlich 
kennzeichnet man mit einem 
Doppelkreuz »##« am Ende. 

Beispiel: 

LET pi.mal.2#= 
6.283185307 
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Zwei Dinge sind bei der Ver- 
wendung von Fließkomma-Va- 
riablen noch dringend zu be- 
achten. Zu den maximal sieben 
bzw. 16 Stellen Genauigkeit 
zählen sowohl Vorkomma- als 
auch Nachkomma-Stellen. Das 
heißt, auch z.B. die Zahl 12345 
678.0 wäre in einer Fließkomma- 
Variable mit einfacher Genauig- 
keit nicht ganz unterzubringen. 

Zudem verwendet der Inter- 
preter für sehr große und be- 
tragsmäßig sehr kleine Zahlen 
die sog. Exponenten-Schreib- 
weise, Dabei wird bei sehr gro- 
Ben Zahlen die Zahl so oft durch 
zehn geteilt, bis nur noch eine 
Vorkomma-Stelle stehenbleibt. 
Durch zehn zu teilen bedeutet 
dabei nichts anderes, als das 
Komma eins nach links zu ver- 
schieben. 

‚Auf diese Zahl mit einer Vor- 
komma-Stelle folgt dann ein 
Buchstabe und ein Pluszei- 
chen, und dann die Anzahl der 
Kommaverschiebungen. Der 
eingeschobene Buchstabe lau- 
tet bei einfacher Genauigkeit 
»E« und bei doppelter Genauig- 
keit »D«, 

Beispiel: 

123450000 wird dargestellt als: 
1.2345E+08 bei einfacher Ge- 
nauigkeit 
1.2845D +08 bei doppelter Ge- 
nauigkeit 

Bei betragsmäßig sehr klei- 
nen Zahlen funktioniert das 
Ganze genau andersherum. 
Hier wird das Komma so lange 
nach rechts verschoben (also 
die Zahl mit zehn malgenom- 
men), bis vor dem Komma eine 
Ziffer ungleich Null steht. Nach. 
dem Buchstaben »E« oder »D« 
folgen ein Minuszeichen und 
die Anzahl der Verschiebun- 
gen. 

Beispiel: 

.0.00012345 wird dargestellt als: 
1.2345E-04 bei einfacher Ge- 
nauigkeit 
1.2345D-04 bei doppelter Ge- 
nauigkeit 

Nun würden Sie diese neu- 
gewonnenen Erkenntnisse si- 
cherlich gerne ausprobieren. 
Wie das geht, wissen wir ei- 
gentlich schon. Man benötigt ja 
lediglich den Zuweisungsbe- 
fehl LET, um einer Variablen ei- 
nen Wert zuzuweisen, und den 
Befehl PRINT, um den Inhalt 
der Variablen wieder auszuge- 
ben. 

Am besten überprüfen wir 
gleich einmal die beiden obi- 
gen Beispiele. Dazu dient das 
folgende Programm: 


LET große.Zahl1!= 
123450000 
PRINT große.Zahli! 


LET große.Zahl2#= 

123450000 

PRINT große.Zahl2# 

LET kleine.Zahli!= 

0.00012345 

PRINT kleine.Zahl1! 

LET kleine.Zahl2#= 

0.00012345 

PRINT kleine.Zahl2# 
Nachdem Sie das alte Pro- 

gramm mit »New« gelöscht und 

das neue eingegeben und ge- 

startet haben, erscheinen am 

Bildschirm folgende Zahlen: 

1.2345E+08 

1.2345D+08 

1.2345E-04 

1.2345D-04 


Übrigens dürfte es interes- 
sant für Sie sein, zu wissen, daß 
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mal wieder den alten Pro- 
grammtext zu löschen, einen 
neuen zu schreiben, und dann 
das Programm zu starten. 

Aus diesem Grunde ist es 
möglich, einzelne Befehle di- 
rekt an den Interpreter zu ge- 
ben. Dies geschieht im Ausga- 
befenster. Klicken Sie dieses 
einmal an, so daß der Cursor 
dort erscheint (wenn er sich 
nicht sowieso schon dort befin- 
det). 

Nun geben Sie am besten 
einmal die folgenden beiden 
‚Anweisungen ein: 
a%=10 <RETURN> 
PRINT a% <RETURN> 

Nach dem ersten Befehl (wo- 
bei wir ja jetzt den eigentlichen 
Befehl LET weggelassen ha- 
ben) gibt der Interpreter ledig- 


Bild 4. Das PSET-Demo-Programm setzt Punkte 


der Befehl LET ohne weiteres 
auch weggelassen werden 
kann. Dies macht ein Basic- 
Programm zwar etwas unüber- 
sichtlicher, erspart aber einiges 
an Tipparbeit. So könnte man 
statt 


LET a%=10 
auch schreiben: 
a%=10 

Der Effekt, die Zuweisung 
des Wertes zehn an die Varia- 
ble a%, bleibt in beiden Fällen 
der gleiche. 

Und noch eine zweite Er- 
leichterung zum Experimentie- 
ren mit neuen Befehlen sollten 
Sie nun kennenlernen: den Di- 
rektmodus. Denn normalerwei- 
se gibt man ja erst ein komplet- 
tes Programm ein und startet es 
dann erst. Sind die Programme 
allerdings sehr kurz (z.B. eine 
Variablenzuweisung und der 
Ausgabebefehl »PRINT«), so ist 
es recht zeitaufwendig, jedes- 
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lich »Ok« aus. Nach »PRINT 
a%« erscheint aber tatsächlich 
der Wert der Variablen »a%«, 
also »10«. 

Und wenn wir schon einmal 
dabei sind, uns das Leben mit 
‚Amiga-Basic leichter zu ma- 
chen. Der Befehl PRINT läßt 
sich zwar nicht so einfach weg- 
lassen wie LET, jedoch kann 
man ihn abkürzen, indem Sie 
statt »PRINT« nur ein Fragezei- 
chen eingeben. Anstatt »PRINT 
a%« gibt man schneller ein »? 
a%«. 

Die DEF...-Befehle 

Sicherlich haben Sie schon 
bemerkt, daß die Variablen-En- 
dungen für die verschiedenen 
Typen etwas unpraktisch einzu- 
geben sind, vor allem, wenn ei- 
nem die Tastatur noch unge- 
wohnt ist. 

Daher gibt es mehrere Befeh- 
le, mit denen sich bestimmte 
Anfangsbuchstaben von Varia- 
blennamen als Kennzeichnung 


des Variablentyps bestimmen 
lassen. 

Diese Befehle lauten: 
DEFINT für Integer 
DEFLNG für Long Integer 
DEFSNG für Single Float 
DEFDBL für Double Float 

Diese Befehle werden nun 
folgendermaßen verwendet: 
Setzt man an den Anfang eines 
Programms den Befehl »DE- 
FINT A« (oder geben Sie ihn im 
Direktmodus ein), so weiß der 
Interpreter, daß alle Variablen, 
welche mit dem Buchstaben 
»a« beginnen, vom Typ »inte- 
ger« sind. 

‚Auch werden mehrere Buch- 
staben für einen Typ akzeptiert. 
»DEFLNG A,‚E,I,O,U« z.B. läßt 
alle Variablen, welche mit ei- 
nem Vokal beginnen, vom Typ 
»long« Integer sein. 

Dann gibt es noch die folgen- 
de Form: »DEFDBL W-Z«. Hier- 
bei sind alle Variablen, deren 
Name mit einem Buchstaben 
zwischen »w« und »z« beginnt, 
vom Typ Double Float, Und 
schließlich lassen sich die bei- 
den Möglichkeiten noch kombi- 
nieren, z.B. »DEFDBL A,E‚l,O, 
UW-Z«, 

Definiert man Variablentypen 
auf diese Weise, so sind die un- 
handlichen Endungszeichen 
nicht mehr notwendig. Verwen- 
det man sie trotzdem, so haben 
sie Vorrang vor einer eventuel- 
len Definition mit »DEF...«. 

Doch wie können Sie am be- 
sten nachprüfen, ob eine be- 
stimmte Definition tatsächlich 
angenommen wurde? Ganz 
einfach, man stellt den Interpre- 
ter vor ein Problem. Dieses kann 
so aussehen, daß man einer In- 
teger-Variablen einen Dezimal- 
bruch zuzuweisen versucht: 
DEFINT I 
Integer=11.11 
PRINT Integer 


Wie Sie an der Ausgabe des 
Interpreters sehen können, hat 
die Variable nun nicht den In- 
halt »11.11« sondern »11«. Der 
Dezimalbruch wurde also auf 
eine Integer-Zahl gerundet. Da- 
mit ist der Beweis erbracht, daß 
die Variable »Integer« tatsäch- 
lich auch als Integer-Variable 
gehandhabt wurde. 


Alphanumerische Variable 
Bis jetzt haben wir nur die nu- 
merischen Variablen, also die 
Zahlen-Variablen kennenge- 
lernt. Allerdings gibt es auch 
noch die sog. alphanumeri- 
schen Variablen. Diese kön- 
nen als Inhalt nicht nur Zahlen, 
sondern auch Buchstaben und 
andere Zeichen enthalten. Ein 
solche Folge von Zeichen und 
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Zahlen nennt man eine Zei- 
chenkette, auf englisch »string«. 

Stringvariablen kennzeich- 
net man normalerweise durch 
ein Dollarzeichen »$« am Ende 
des Namens. Allerdings wer- 
den mit dem Befehl DEFSTR 
bestimmte Anfangsbuchstaben 
dem Typ string zugeordnet, Die 
Verwendung ist die gleiche wie 
bei den anderen »DEF...«-Be- 
fehlen. 

Während man eine Zahl ein- 
fach ohne weitere Kennzeich- 
nung eingibt, muß ein String im- 
mer durch Anführungszeichen 
»”« am Anfang und am Ende 
gekennzeichnet sein. Der Wert 
der Variablen (also der Inhalt 
der »Schublade«) ist die Zei- 
chenkette ohne die Anfüh- 
rungszeichen. 

Beispiele: 
beispiel.string$="Hallo” 
PRINT beispiel.String$ 


ergibt die Ausgabe 
>>Hallo<<. 


test$="la2b3c” 
PRINT test$ 


ergibt die Ausgabe 
>>1a2b3e<<. 


Nachdem Sie nun wirklich al- 
le Variablentypen kennen, die 
Amiga-Basic dem Programmie- 
rer zur Verfügung stellt, sollten 
Sie erst eine Weile damit im Di- 
rektmodus oder mit kleinen 
Programmen herumexperi- 
mentieren. 

Dabei könnte Ihnen ein neuer 
Befehl recht hilfreich sein. Er 
heißt »SWAP« und vertauscht 
die Inhalte zweier Variablen. 
Dazu noch ein kurzes Beispiel: 


variable1%=100 
variable2%=200 
swap variablei#, 
variable2% 
print variable1% 
print variable2% 
ergibt: 200 
100 


Wir haben mit den String-Va- 
riablen eine Möglichkeit ken- 
nengelernt, auch beliebige Tex- 
te über den PRINT-Befehl aus- 
zugeben. Will man aber ledig- 
lich irgendeinen Text während 
des Programms einmal ausge- 
ben, und wird er danach nicht 
mehr benötigt, dann ist der 
Weg über die Variablenzuwei- 
sung doch etwas umständlich. 
Außerdem sollten Sie nie ver- 
gessen, daß jede verwendete 
Variable ein Programm kompli- 
zierter und weniger nachvoll- 
ziehbar macht. 


Überlegen Sie sich doch ein- 
mal, was während der folgen- 
den beiden Befehle im Compu- 
ter geschieht: 


Text$="Dies ist ein 
Text” 
PRINT Text$ 


Zuerst einmal nimmt der In- 
terpreter eine Schublade vom 


Der PRINT-Befehl 
kann mehr 


Typ String und beschriftet sie 
mit dem Namen »Text«. Dann 
legt er die Zeichenkette »Dies 
istein Text« hinein. Als nächstes 
sucht während der Verarbei- 
tung des PRINT-Befehls wieder 
die Schublade mit Namen 
»Text«, nimmt ihren Inhalt her- 
aus und gibt ihn auf dem Bild- 
schirm aus. 

Diese ganze Prozedur läßt 
sich abkürzen, indem wir dem 
Interpreter direkt (»explizit«) mit- 
teilen, was er ausgeben soll. 
Wir können kürzer schreiben: 


PRINT “Dies ist ein 
Text” 


Der Effekt ist jedesmal der 
gleiche, nur daß diesmal der 


teilt. Daraus können wir folgern, 
‚daß der Interpreter nicht nur die 
angegebene Zeichenkette aus- 
gibt, sondern auch noch einen 
Carriage Return (= Wagen- 
rücklauf) ausgibt. Dies bewirkt, 
daß die nächste Ausgabe in der 
neuen Zeile erfolgt, was aber 
nicht immer erwünscht ist. 

Doch der Carriage Return 
(kurz: CR) läßt sich verhindern. 
Fügt man hinter der Zeichen- 
kette noch ein Semikolon »;«an, 
so wird der CR unterdrückt, und 
die nächste Ausgabe erfolgt di- 
rekt anschließend: 


PRINT “Dies ist”; 

PRINT ”ein Text” 

ergibt die Ausgabe 
>>Dies ist ein Text<< 


Nun müssen wir nur noch 
zwischen dem Wort »ist« und 
dem Anführungszeichen ein 
Leerzeichen einfügen. Natür- 
lich könnten Sie das Leerzei- 
chen genausogut auch vor dem 
Wort »ein« einfügen. 

Übrigens alles, was auf einen 
Befehl wie PRINT oder DEF... 
folgt, istein Argument. Das heißt, 
in dem obigen Beispiel wäre 
das Argument des PRINT-Be- 
fehls » "Dies ist der Text” «. Hie- 
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Bild 5. Das CIRCLE-Demo-Programm zeichnet Kreise 


Umweg über die Variable ent- 
fällt. Dies macht ein Programm 
übersichtlicher. 

Probieren Sie doch einmal 
aus, was passiert, wenn Sie die 
Ausgabe des Textes auf zwei 
PRINT-Befehle aufspaltet (ver- 
wenden Sie dazu den Pro- 
gramm-Modus): 

PRINT "Dies ist” 
PRINT "ein Text” 
Wie Sie leicht feststellen kön- 


nen, wird der ausgegebene 
Text auch auf zwei Zeilen aufge- 
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Be der Befehl »PRINT text$«, so 

wäre »text$« das Argument. 
Nun ist es auch möglich, auf 

den Befehl PRINT mehrere Ar- 

gumente folgen zu lassen, z.B. 

mehrere Strings. Diese müssen 

dann lediglich durch jeweils ein 

Semikolon getrennt sein, damit 

Sie direkt aufeinanderfolgen. 
Beispiel: 

PRINT "Dies ist ”; 

"ein Text” 

ergibt die Ausgabe 

>>Dies ist ein Text<< 


Genausogut könnte man 


auch eingeben: 
PRINT "Dies *;"ist *; 
"ein ";"Text” 

Der Sinn dieser Reihungen 
ist die Verwendung verschie- 
denartiger Argumente, also 
Strings gemischt mit Variablen. 
Als praktische Anwendung er- 
weitern wir unser Programm! 
wie folgt: 


PRINT Dies ist 
Programm1” 

DEFINT Z 

LET zahl=0 

Anfang: 

LET zahl=zahl+1 
PRINT ”Inhalt der 
Variablen zahl: ";zahl 
GOTO Anfang 


Wenn Sie ganz genau auf 
den PRINT-Befehl geachtet ha- 
ben, könnte Ihnen aufgefallen 
sein, daß zwischen dem Dop- 
pelpunkt und den Anführungs- 
strichen kein Leerzeichen ein- 
gefügt wurde. Trotzdem er- 
scheinen während des Pro- 
grammablaufes Doppelpunkt 
und Zahl durch eine Stelle ge- 
trennt. 

Dies liegt daran, daß der In- 
terpreter bei der Ausgabe posi- 
tiver Zahlen immer vor der Zahl 
ein Leerzeichen einfügt. Beine- 
gativen Zahlen steht hier statt 
dessen ein Minuszeichen. Auf 
diese Weise sind saubere Ta- 
bellen leichter zu verwirklichen. 
Ersetzten Sie in der fünften Zei- 
le doch das Pluszeichen durch 
ein Minuszeichen, dann wird 
das Vorzeichen direkt auf den 
Doppelpunkt folgen: 

LET zahl=zahl-1 

Eine Leerstelle nach der Aus- 
gabe einer Zahl gibt der Inter- 
preter auf jeden Fall aus, egal 
ob sie positiv oder negativ ist. 

Eine letzte Besonderheit des 
PRINT-Befehls wollen wir uns 
noch ansehen, bevor wir uns 
dem nächsten Kapitel widmen. 
Für die Verwendung mehrerer 
Argumente existiert nämlich 
nicht nur der Semikolon als 
Trennzeichen, sondern auch 
das Komma. 

Denn Amiga-Basic hat einen 
internen Ausgabe-Tabulator. Das 
heißt ein PRINT-Argument, das 
von dem vorherigen durch ein 
Komma getrennt ist, wirdan der 
nächsten Tabulatorposition 
ausgegeben. Diese Tabulato- 
ren haben 15 Zeichen Abstand. 
Damit sind die Tabulatorpositio- 
nen die 15. Spalte, die 30. Spal- 
te, die 45. Spalte usw. 

‚Auf diese Weise lassen sich 
einfache Tabellen verwirkli- 
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chen, da in jeder Druckzeile die 
Zahlen immer an den Tabulator- 
positionen untereinander ste- 
hen. 

Beispiel: 
PRINT "Dies ist 
Programm1” 
DEFINT Z 
LET zahl1=0 
LET zahl2=0 
Anfang: 
LET zahli=zahli+1 


darin enthaltenen Variablen 
von 0 bis 10 durchnumerieren 
soll. Die Numerierung beginnt 
immer bei Null und reicht bis zu 
dem in Klammern angegebe- 
nen Wert. Es können auch 
mehrere Argumente durch 
Kommas getrennt angegeben 
werden, um mehrere Feldvaria- 
blen zu dimensionieren: 


DIM Texte$(5), Zaehler 
(15), Ergebnisse# (100) 


Unnennnneneih 


Bild 6. Das GET-PUT-Demo-Programm zeigt Grafik 


LET zeahl2=zahl2-1 
PRINT "Inhalt der 
Variablen zahli und 
zahl2:”,‚zahli,zahl2 
GOTO Anfang 
Feldvariablen 

Erschrecken Sie nicht, wenn 
Sie jetzt meinen, wir würden 
noch einen neuen Variablentyp 
kennenlernen. Feldvariablen 
sind aber eher eine spezielle 
Verwendung der uns bereits be- 
kannten Variablenarten. 

Doch kehren wir zur Erklä- 
rung erst einmal zu unserem 
Schubladen-Modell zurück. 
‚Angenommen wir geben gleich 
mehreren Schubladen den glei- 
chen Namen, z.B. »Zähler«, 
dann können wir diese Varia- 
blen, die eigentlich den glei- 
chen Namen haben, durchnu- 
merieren, und schon haben wir 
eine Feldvariable. 

Die Dimensionierung 

Das klingt kompliziert, ist 
aber ganz einfach. Und wie 
sieht das Ganze in der Praxis 
aus? Zuallererst muß man dem 
Interpreter mitteilen, daß man 
eine Feldvariable benutzen will. 
Dies geschieht mit dem Befehl 
»DIM«, z. B. so: 


DIM Zaehler(10) 


Nun weiß Amiga-Basic, daß 
es Schubladen mit dem Namen 
»Zaehler« beschriften und die 
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Der Sinn des Ganzen? Se- 
hen Sie sich einmal diese Be- 
fehlsfolge an: 

DIM Zah1%(3) 

Zahl%(1)=2 

Zahl%(2 
Zah1%(3)=8 

index#=1 

PRINT Zahl%(index?) 
index#=2 

PRINT Zeh1l%(index%) 
index#=3 

PRINT Zahl%(index$) 

In dem Programm erscheint 
dreimal die Zeile»PRINT Zahl% 
(index%)«. Trotzdem wird jedes- 


Alles klar 
mit »DIM« 


mal ein anderer Wert ausgege- 
ben. Wir können mit der Varia- 
ble »index%« bestimmen, wel- 
che der Variablen »Zahl%« wir 
ausgeben wollen. Dies wird uns 
später noch von größtern Nut- 
zen sein. 

Zwei Fachwörter aus der Welt 
der Feldvariablen wurden Ih- 
nen jetzt unauffällig unterge- 
schoben. Da wäre erst einmal 
der Begriff »Index«. Der Index 
ist in diesem Fall die Nummer 
einer Feldvariable. 


GARUNDLAGEN 


‚Außerdem wurde das Wort 
»dimensionieren« verwendet, 
um das Anlegen einer Feldva- 
riablen zu beschreiben. Dies 
liegt daran, daß eine Feldvaria- 
ble nicht nur einen Index haben 
kann, sondern auch mehrere. 
Damit wird sie gewissermaßen 
mehrdimensional. Man ver- 
wendet dann den Befehl DIM 
folgendermaßen: 

DIM Schachbrett$(8,8), 
Schachspiel$(20,88) 

Nun könnte man z.B. in der 
Feldvariablen Schachbrett$ die 
komplette Belegung eines 
Schachbrettes unterbringen. 

Dies fuktioniert so: Steht in 
der Position C3 ein Bauer, so 
gibt man den Befehl »LET 
Schachbrett$(3,3)= * Bauer” «. 
Die Variable Schachspiel$ ist 
sogar dreidimensional. Somit 
lassen sich dort mehrere An- 
ordnungen in einer Variablen 
unterbringen, der erste Index 
würde dann die Nummer der 
Anordnung bezeichnen. Nach 
der obigen Dimensionierung 
könnte Schachspiel$ ganze 21 
Schachbretter abspeichern. 

Weiter oben wurde gesagt, 
daß die Indizes immer bei null 
anfangen und dann bis zu dem 
bei »DIM« angegebenen Wert 
gehen. Dies ist nicht ganz rich- 
tig, denn es gibt da noch den 
Befehl OPTION BASE. Er legt 
fest, ob die Numerierung bei 
null oder bei eins beginnt. Es 
gibt nur die beiden Formen: 


OPTION BASE 0 
OPTION BASE 1 


Man darf eine Feldvariable 
nur einmal dimensionieren, 
wendet man den DIM-Befehl 
zweimal auf die gleiche Varia- 
ble an, so ergibt dies einen Feh- 
ler: 

PRINT “FEHLERHAFT! ” 
DIM test(10) 
DIM test(20) 


Wird es trotzdem einmal nö- 
tig, eine Feldvariable neu zu di- 
mensionieren, so hilft der Be- 
fehl ERASE. Er macht die Di- 
mensionierung einer oder meh- 
rerer Feldvariablen rückgängig. 
Dazu gibt man die Namen der 
Felder als Argumente durch 
Kommas getrennt an. 

PRINT "Jetzt geht's!” 
DIM test(10) 
test(1)=99 

ERASE test 

DIM test(20) 

PRINT test(1) 


Wie zu erwarten war, ergibt 
der PRINT-Befehl der letzten 


Zeile die Ausgabe »0«, da ja die 
Feldvariable test nach Ausfüh- 
rung der vierten Zeile nicht 
mehr dimensioniert war. 

Wesentlich radikaler ist der 
Befehl CLEAR. Er bewirkt die 
Löschung des gesamten Varia- 
blenspeichers. Das heißt, alle 
Schubladen werden geleert und 
ihre Namen entfernt. CLEAR 
wird zu diesem Verwendungs- 
zweck ohne Argumente ver- 
wendet, 


Die Funktionen 
bringen’s 


Die Funktionen 

Den Feldvariablen nicht un- 
ähnlich sind die Funktionen. Ei- 
ne Funktion hat ebenfalls einen 
Namen und benötigt ein Argu- 
ment in Klammern. Am einfach- 
sten sind hier die mathemati- 
schen Funktionen, wie z. B. Si- 
nus und Cosinus. 

Die Verwendung einer sol- 
chen Funktion soll hier mit Bei- 
spielen gezeigt werden, da- 
nach reicht eine kürzere Be- 
schreibung der restlichen ma- 
thematischen Funktionen. 

Eine sehr einfache Funktion 
ist ABS(). Sie berechnet den 
‚Absolutwert ihres Argumentes, 

Beispiele: 

PRINT ABS(-10.0) 

a%=ABS(-15) 

PRINT a% 

ergibt die Ausgabe: 10.0 
-15 

Man könnte meinen, auch 
hier muß der Interpreter nur in 
die Schublade mit Nummer 
»-15« und Namen »ABS« sehen. 
Dies ist allerdings nicht der Fall, 
das Ergebnis wird wirklich be- 
rechnet, Daher spricht man 
nicht (wie bei Variablen) von ei- 
nem Inhalt, sondern vom Über- 
gabewert. So ist der Übergabe- 
wert von ABS(x) der absolute 
Wert des Argumentes, 

EXP(x) übergibt die Euler- 
sche Zahl hoch x. EXP(1) ist al- 
so e'1=e=2.718282. 

FIX(x) schneidet vom Argu- 
ment x alle Nachkommastellen 
ab. Dabei wird nicht gerundet! 
FIX(3.14152) ergibt 3. 

INT(x) rundet x auf die näch- 
ste kleinere Ganzzahl ab. 
INT(38) ergibt 3; INT(-1.1) ergibt 
2. 


CINT(x) rundet den Absolut- 
wert von x nach den üblichen 
Regeln und setzt das Vorzei- 
chen davor. Der Übergabewert 
ist vom Typ Integer. CINT(3.8) 
ergibt 4; CINT(-1.1) ergibt -1. 
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CLONG(x) funktioniert wie 
CINT(), nur daß der Übergabe- 
wert immer vom Typ Long-Inte- 
ger ist. 

LOG(x) übergibt den natürli- 
chen Logarithmus von x. 
LOG(1) ergibt 0. 

SGN(x) übergibt: 

-1, wenn x negativ ist; 

1, wenn x positiv ist; 

0, wenn x null it 

CSGN(x) funktioniert wie 
SGN), nur daß der Übergabe- 
wert immer vom Typ Single- 
Float ist. 

SQR(x) übergibt die Quadrat- 
wurzel aus x. SOR(16) ergibt 4. 

SIN(x) übergibt den Sinus 
von x. Das Argument muß im 
Bogenmaß angegeben sein. 
SIN(0) ergibt 0. 

COS(x) übergibt den Cosinus 
von x. Das Argument muß im 
Bogenmaß angegeben sein. 
COS(0) ergibt 1. 

TAN(x) übergibt den Tangens 
von x. Das Argument muß im 
Bogenmaß angegeben sein. 
TAN(0) ergibt 0. 

ATN(x) übergibt den Arcus- 
tangens von x im Bogenmaß. 
ATN(TAN(t)) ergibt 1. 

Nun gibt es auch noch Funk- 
tionen, welche nicht nur ihr nu- 
merisches Argument nach ir- 
gendwelchen mathematischen 
Regeln umrechnen. Manche 
benötigen auch einen String als 
Argument, , bzw. liefern einen 
String als Übergabewert. 

LEN(x$) übergibt die Länge 
von x$. Hierbei werden sämtli- 
che enthaltenen Zeichen mitge- 
zählt, also z.B. auch Leerzei- 
chen an Anfang und Ende. 
LEN(” Hallol”) ergibt 6. 

LEFT$(x$,n) übergibt einen 
String, der aus n Zeichen von 
x$ besteht. LEFT$(”Hallo Ami- 
ga” ‚5) ergibt »Hallo«. 

RIGHT$(x$,n) übergibt einen 
String, der aus den letzten n 


Zeichen von x$ besteht. 
RIGHT$(” Hallo Amiga” ,5) er- 
gibt »Amiga«). 


MID$(x$,n,m) übergibt einen 
String, der aus den m Zeichen 
ab Position n von x$ besteht. 
MID$(”Ich mag dich” ,5,3) er- 
gibt »mag«. 

INSTR(x$,y$) übergibt als In- 
tegerzahl die Position, ab der 
x$ in y$ enthalten wird. Ist x$ 
nicht in y$ enthalten, so wird 
null übergeben. INSTR(”mag”, 
"Ich mag dich”) ergibt 5. 

INSTR(n,x$y$) funktioniert 
wie INSTR(x$,y$). Allerdings 
wird hierbei y$ erst ab Position 
n durchsucht. 

INSTR(3," ab” ,"abcabc”) 
ergibt 4. 

UCASE$(x$) übergibt den 
String x$, in dem sämtliche klei- 
nen Buchstabe in große gewan- 


delt wurden. UCASE$(”aAbB 
cC”) ergibt »AABBCC«. 

STRING$(n,x$) übergibt ei- 
nen String mit Länge n, der aus 
dem ersten Zeichen von x$ be- 
steht. STRING$(5,”+") ergibt 

SPACES(x) übergibt einen 
String mit Länge n, der aus 
Leerzeichen besteht. SPACE$ 
(4) ergibt »4 Leerzeichen dann«. 

STR$(x) übergibt einen 
String, welcher aus den Ziffern 
der Zahl n besteht. STR$(3.141) 
ergibt »3.141«. 

VAL(x$) ist das Gegenteil von 
STR$(X) und wandelt einen 
String, welcher die Ziffern einer 
Zahl enthält, in die Zahl um und 
übergibt diese. VAL(”3,141”) 
ergibt 3.141. 

Zwei besondere Funktionen 
wollen wir uns gesondert anse- 
hen, denn sie sind besonders 
wichtig. Dazu müssen Sie wis- 
sen, wie der Computer mit 
Strings umgeht. 


Funktionen 
Marke Eigenbau 


Wie Sie wissen, kann der 
Computer ja ausschließlich 
Zahlen verarbeiten und spei- 
chern. Daher ist es notwendig, 
Buchstaben und Zeichen in 
Zahlen umzuwandeln. Jedes 
Zeichen bekommt dafür eine 
ganz bestimmte Nummer zwi- 
schen 0 und 255 zugeordnet. 

Um zu ermöglichen, daß ver- 
schiedene Computer miteinan- 
der Daten austauschen kön- 
nen, müssen die Nummern ge- 
normt sein. Jedes Zeichen muß 
auf jedem Computer die glei- 
che Nummer besitzen. Zu die- 
sem Zweck wurde der sog. 
ASCII ins Leben gerufen, der 
‚American Standard Code for In- 
formation Interchange (ameri- 
kanischer Standard-Code für 
Informations-Austausch). 

Die Funktion ASC(x$) über- 
gibt uns den ASCII von x$. Da- 
bei darf aber x$ nur ein einzel- 
nes Zeichen enthalten! ASC 
("A) ergibt 65. 

Entgegengesetzt funktioniert 
CHRS$(x). Diese Funktion wan- 
delt den ASCII »x« in das Zei- 
chen um. CHR$(65) ergibt also 
»A«, Eine Tabelle mit allen Co- 
des finden Sie in Ihrem Hand- 
buch im Anhang A. 

Etwas ganz Besonderes ist 
der Zufallsgenerator. Denn nor- 
malerweise ist ja das Gute an 
einem Computer, daß er unter 
gleichen Bedingungen immer 
dasselbe tut: Ein Programm 
muß auf jeden Fall immer die 
gleichen Ergebnisse bringen. 
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Da aber auch in Program- 
men Zufallsentscheidungen 
benötigt werden, wurde in Ami- 
ga-Basic ein Zufallsgenerator 
eingebaut, der (fast) zufällige 
Zahlen liefert. 

Der Zufallsgenerator 

Eine Zufallszahl erhält man 
über die Funktion RND(x). Ist 
»x«_ eine positive Integer-Zahl, 
so liefert der Computer bei je- 
dem Aufruf eine zufällige Zahl 
vom Typ Double-Float zwischen 
null und eins. 

Doch wann benötigt man 
schon Dezimalbrüche zwi- 
schen null und eins. Für einen 
Computer-Würfel wären die In- 
teger-Zahlen zwischen 1 und 
sechs von Nutzen. Daher gibt 
es die praktische Formel: 
INT(RND(1)xn)+m 

Diese kombinierte Funktion 
liefert immer n verschiedene 
Integer-Zahlen ab der Zahl m. 
Ein Würfel liefert sechs ver- 
schiedene Zahlen ab der Zahl 
1, also würden wir dafür die fol- 
gende Formel benötigen: 
INT(RND(1)x6)+1 

Diese Formel können wir in 
ein kleines Programm einbau- 
en, das einen Würfel simuliert, 
der ständig geworfen wird. 


PRINT ”Programm2: Wuer- 
fel” 

Anfang: 

PRINT INT(RND(1)x6)+1 
GOTO Anfang 


Wenn man dieses Programm 
startet, erscheinen am Bild- 
schirm ganze Zahlen zwischen 
eins und sechs. Starten und 
stoppen Sie das Programm 
mehrmals hintereinander. Da- 
bei fällt etwas auf: Die Zufalls- 
zahlen, welche am Bildschirm 
erscheinen, haben immer die 
gleiche Reihenfolge! 

Doch das ist eigentlich nicht 
der Sinn von Zufallszahlen, auf 
diese Weise könnte man ja ei- 
nen Würfel voraussagen. Da- 
her existiert als Ergänzung zur 
RND-Funktion noch der Befehl 
RANDOMIZE TIMER. Er muß 
vor der ersten Verwendung der 
RND-Funktion stehen, dann 


sorgt er für wirklich zufällige 


Werte. Wir erweitern Pro- 
gramm2: 

PRINT "Programm2: 
Wuerfel” 

RANDOMIZE TIMER 

Anfang: 


PRINT INT(RND(1)x6)+1 
GOTO Anfang 


Amiga-Basic stellt zwar die 
meisten mathematischen 
Grundfunktionen zur Verfü- 
gung, oft benötigt man diese 
aber auch zu komplexeren Ter- 
men verbunden. Zu solchen 
Zwecken definiert man sich ei- 
gene Funktionen, welche aus 
den in Amiga-Basic vorhande- 
nen bestehen. 

Dazu dient der Befehl »DEF«. 
Seine Verwendung erklärt sich 
am besten an einem Beispiel: 


PRINT "Programn3: 
Quadratzahlen” 

DEF FNQuadrat(x)=xxx)2 
zaehler=0 

Anfang: 
zaehler=zaehler+1 

PRINT FNQuadrat(zaehler) 
GOTO Anfang: 


Auf den Befehl »DEF« folgt 
der Name der selbstdefinierten 
Funktion, welcher immer mit 
den Buchstaben »FN« begin- 
nen muß, ansonsten gelten die 
Regeln für Variablennamen. 

‚Auf den Namen folgt in Klam- 
mern der Variablenname »x« 
als Argument für diese Funk- 
tion. Hier können auch mehrere 
durch Kommas getrennte Varia- 
blennamen stehen. Diese Ar- 
gumente tauchen dann im ei- 
gentlichen Funktionsterm auf. 

Die neu definierte Funktion 
wird dann verwendet wie jede 
andere fest installierte Funk- 
tion. Als Argumente können 
dann Variablen oder explizite 
Werte stehen. Wobei die Varia- 
blen nicht die gleichen Namen 
haben müssen wie in der Funk- 
tions-Definition. Zu beachten ist 
lediglich, daß man genauso vie- 
le Argumente angibt, wie benö- 
tigt werden. 


paraneter-pereneter+1 
PRINT FiQuadre 
010 Anfang 


= "Progrannd: Quadratische Funktion” 
‚chefunktion(a,b,o,x)=akx"2xbtx+c 


‚chefunktion(faktor1, faktor2, faktor3,paraneter) 


Listing 1. Eine eigene Funktion erstellen spart Arbeit 
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Hier noch einmal ein Beispiel 
mit mehreren Argumenten: 

Bisher hat der Computer uns 
immer nur Ausgaben gemacht. 
Einfluß auf den Programma- 
blauf konnte man nur vor dem 
Starten des Programms neh- 
men. Das soll anders werden. 


INPUT läßt 
Sie mitmachen 


Sozusagen das Gegenstück 
zu »PRINT« ist der Befehl »IN- 
PUT«, Er fordert vom Bediener 
eine Eingabe während des Pro- 
gramms. Auch dieser Befehl 
läßt sich am besten an einem 
Beispiel-Programm erklären: 


PRINT "Programms ; 
INPUT-Demonstration” 
PRINT "Berechnung des 
Volumens eines Zylinders 
DEF FNZylinderVolumen 
(r,h)=3.141524rx)2xh 
INPUT "Geben Sie den 
Radius der Grundfläche 
ein”;radius 

INPUT “Geben Sie die 
Höhe des Zylinders ein”; 
hoehe 

PRINT "Das Volumen be- 
trägt”;FNZylinder.Volu- 
men(radius,hoehe) 


Wenn Sie dieses Programm 
starten, so können Sie folgen- 
des feststellen: Stößt der Inter- 
preter auf einen INPUT-Befehl, 
so gibt er den in Anführungszei- 
chen stehenden Text sowie ein 
Fragezeichen auf den Bild- 
schirm aus. Dahinter erscheint 
dann der Cursor, und fordert 
den Benutzer zu einer Eingabe 
auf. In diesem Fall ist das beide 
Male eine Zahl (bestätigt durch 
<RETURN>), 

Vielleicht ist es Ihnen pas- 
siert, daß trotz Cursor am Bild- 
schirm und trotz INPUT-Befehl 
der Computer keine Eingabe 
zuließ, und jeder Tastendruck 
nur einen Bildschirmblitz verur- 
sachte, Dies ist eines der ge- 
wöhnungsbedürftigen Proble- 
me von Amiga-Basic. Das Aus- 
‚gabe-Fenster, in welchem ja un- 
ser Programm seine Ausgaben 
macht, war dann nicht aktiv. 

Man erkennt dies an der obe- 
ren Fensterleiste, welche dann 
grob gerastert ist. Klicken Sie 
einmal kurz auf eine beliebige 
Stelle des Fensters, und es ist 
aktiviert. Nun nimmt der Com- 
puter Ihre Eingaben an. 

Den vom Benutzer eingege- 
benen Wert ordnet Amiga-Ba- 
sic dann der Variablen zu, wel- 
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che hinter dem Semikolon 
steht. Die Variable kann dann 
weiterverarbeitet werden. In un- 
serem Programm5 z.B. wird sie 
als Argument einer selbstdefi- 
nierten Funktion verwendet, 
welche das Volumen eines Zy- 
linders berechnet. 

So wie »PRINT« mehrere 
‚Ausgaben machen kann, las- 
sen sich mit INPUT auch meh- 
rere Eingaben tätigen. So wird 
unser Programm kürzer: 
PRINT "Programms: 
INPUT-Demonstration” 
PRINT “Berechnung des 
Volumens eines Zylinders 
DEF FNZylinder. Volumen 
(r,h)=3.14152xrxx)2xh 
INPUT "Geben Sie Radius 
und Höhe ein”;radius, 
hoehe 
PRINT ”Das Volumen be- 
trägt”;FNZylinder.Volu- 
men(radius,hoehe) 


Der Unterschied zur vorigen 
Version mit den zwei INPUT- 
Befehlen ist, daß nun der Be- 
nutzer die beiden Werte für Ra- 
dius und Höhe auf einmal, 
durch ein Komma getrennt, ein- 
geben muß. Das Ergebnis 
bleibt das gleiche. 

Fast selbstverständlich ist, 
daß das Ganze auch mit String- 
Variablen läuft. Dabei lernen 
wir auch gleich noch die alpha- 
numerische Variante der selbst- 
definierten Funktion kennen: 
PRINT ”Programn6: 
Initialen” 

DEF FNInitialen$(na$, 
vn$)=1eft$(vn$,1)+left$ 
(na$,1) 

INPUT "Bitte eingeben: 
Namen, Vorname”;name$, 
vorname$ 

PRINT "Ihre Initialen 
sind ”;FNInitialen$ 
(name$, Vorname$) 


Ist Ihnen aufgefallen, daß der 
Name der selbstdefinierten 
Funktion ein Dollarzeichen als 
Endung hat. Dies bedeutet, daß 
der Übergabewert der Funktion 


ein String ist. 
Nun verlangt die neue Funk- 
tion als Argumente zwei 


Strings, nämlich den Nachna- 
men und den Vornamen des 
Benutzers. Diese Strings wur- 
den in der INPUT-Zeile (durch 
ein Komma voneinander ge- 
trennt) vom Benutzer eingege- 
ben. 

Die beiden LEFT$()-Funktio- 
nen übergeben jeweils das er- 
ste Zeichen der Strings, und 
diese beiden Zeichen werden 
dann zu einem String addiert. 
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Dies ist eine wichtige neue Er- 
kenntnis, man kann Strings ein- 
fach addieren, um sie zu einem 
neuen String zusammenzufas- 
sen. Subtraktion oder ähnli- 
ches funktioniert allerdings 
nicht. 

Nun wollen wir das Pro- 
gramm6 nochmals verbessern. 
Denn genaugenommen ist es 
ja für den Benutzer umständ- 
lich, die beiden Namen durch 
ein Komma getrennt einzuge- 
ben. Auch vergißt man ein sol- 
ches Komma leicht einmal, was 
zu einer Fehlfunktion führt. 

‚Also wollen wir das Problem 
mit den Initialen auf andere Art 
und Weise lösen, so daß der 
Benutzer die Namen ohne 
Komma, nur (wie dies norma- 
lerweise üblich ist) durch ein 
Leerzeichen getrennt eingeben 
kann. 

Und genau darin liegt auch 
schon der Trick. Angenommen, 
das Programm bekommt durch 
den INPUT-Befehl den String 
»Maier Peter«. Dann beginnt 
doch der Vorname gleich nach 
dem trennenden Leerzeichen. 
Wenn wir wissen, an welcher 
Position im String das Leerzei- 
chen steht, wissen wir auch, 
daß die Initiale des Vornamens 
an der darauffolgenden Posi- 
tion steht. 

Man könnte das Problem mit 
folgenden zwei Zeilen lösen, 
wenn beide Namen in der Va- 
riable name$ stehen: 
PosInit%=INSTR 
(” ”,name$)+1 
PRINT MID$(name$,Pos 
Init%,1)+LEFT$(name$,1) 


Die Funktion INSTR() liefert 
die Position des Leerzeichens, 
diese wird um eins erhöht und 
der Variablen »Posinit%« zuge- 
ordnet. »MID$(« holt sich das 
erste Zeichen ab der Position 
Posinit% aus »name$«, und 
das erste Zeichen des gesam- 
ten Strings wird dazuaddiert, 

Aber warum sollen wir den 
Umweg über die Variable 
Posinit% gehen? Wir setzen 
die INSTR()-Funktion einfach 
gleich als zweites Argument 
von MID$() ein, und definieren 
uns dafür eine neue Funktion: 
DEF FNInitialen$(name$)= 
MID$(name$,INSTR(* ”,‚na- 
me$)+1,1)+LEFT$(name$,1) 

Zugegeben, diese Funktion 
ist sehr lang und komplex. Sie 
soliten sie sich deshalb genau 
durchdenken, um sie zu verste- 
hen. Dafür können wir jetzt das 
Programm6 umändern: 

PRINT “Programn6: 
Initialen” 


DEF FNInitialen$(name$) 
=MID$(name$, INSTR(” ”, 
name$)+1,1)+LEFT$ (name 
$,1) 

INPUT "Bitte eingeben: 
Namen Vorname ”;name$ 
PRINT ”Ihre Initialen 
sind ”;FNInitialen$ 
(name$) 

Ein ähnliches Programm soll- 
ten Sie Jetzt schon selber 
schreiben können. Ihre Aufga- 
be soll es sein, »Anti-Initialen« 
zu berechnen. Diese »Antl-Ini- 
tialen« sollen aus dem jeweils 
letzten Buchstaben der beiden 
Namen bestehen. Überlegen 
Sie einmal scharf, dann kom- 
men Sie sicher von alleine dar- 
auf. Zur Sicherheit bekommen 
Sie hier die Lösung: 


PRINT "Programm? : 
Anti-Initialen” 

DEF FNAntilnitialen$ 
(name$)=MID$(name$, INSTR 
(” *,‚name$)-1,1)+RIGHT$ 
(name$,1) 

INPUT "Bitte eingeben: 
Namen Vorname ”;name$ 
PRINT "Ihre Initialen 
sind ”;FNAntilnitialen$ 
(name$) 

Sollten Sie nicht selber dar- 
auf gekommen sein, wird Ihnen 
die Lösung sicherlich einleuch- 
ten. Von der Position des Leer- 
zeichens geht man nun eine 
Position nach links, um den 
letzten Buchstaben des Vorna- 
mens zu erreichen, und vom 
gesamten String nimmt man 
RIGHT$(), um das letzte Zei- 
chen in die Variable zu bekom- 
men. 


Arbeite 
mit Schleifen 


Programmschleifen 

Eine sehr einfache Schleife 
haben wir schon öfters in unse- 
ren Programmen verwendet, al- 
lerdingsohne zu wissen, daßes 
sich um eine solche handelt. 
Denn als Schleife bezeichnet 
man die mehrmalige Ausfüh- 
rung eines Programmteils. Und 
genau das war der Fall, wenn 
das Programm mit »GOTO« 
zum Label Anfang gesprungen 
ist. 

Diese einfachste aller Schlei- 
fen hat allerdings einen Nach- 
teil: Sie ist eine sog. Unendlich- 
keitsschleife. Wenn man das 
Programm nicht unterbricht 
oder wenn kein Fehler auftritt, 
läuft es unendlich lange weiter. 
Dies Ist aber oft unerwünscht. 
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Die FOR-NEXT-Schleife 
Daher existieren in Amiga- 
Basic zwei weitere Schleifen- 
konstruktionen: FOR-TO-NEXT 
und WHILE-WEND. Da die er- 
ste auch die gebräuchlichere 
ist, wollen wir mit ihr beginnen. 
Sehen Sie sich dazu das fol- 
gende Beispiel bitte genau an. 
PRINT “Programm?: 
FOR-Schleife” 
FOR zaehler%=1 TO 10 
PRINT zaehler% 
NEXT zaehler% 
PRINT ”Ende” 


Wenn Sie das Programm 
starten, werden die Zahlen zwi- 
schen eins und zehn auf den 
Bildschirm ausgegeben. Dann 
ist das Programm beendet. Was 
passiert dabei im Computer? 

Wenn der Interpreter auf die 
zweite Zeile stößt, dann setzt er 
die Variable zaehler% auf den 
Wert eins und geht zur näch- 
sten Zeile über. Dort wird der In- 
halt von »zaehler%« ausgege- 
ben. Die letzte Zeile veranlaßt 
den Interpreter, zum FOR-Be- 
fehl zurückzuspringen. 

Dort wird »zaehler%« um 
eins erhöht, und die Variable 
mit »PRINT« wieder ausgege- 
ben, zurückgesprungen usw. 
Dies geht so lange, bis »zaeh- 
ler%« den Wert zehn erreicht 
hat, Dann läßt »NEXT« den In- 
terpreter nicht mehr zurück- 
springen, und das Programm 
führt die letzte Zeile aus. 

Amiga-Basic zählt von eins 
bis zehn, und führt für jeden 
Wert von »zaehler%« den 
Schleifenrumpf (das sind alle 
Befehle zwischen FOR- und 
NEXT-Zeile) neu aus. Ändert 
man die zweite Zeile in: 

FOR zaehler%=10 TO 20 

so zählt der Interpreter von 10 
bis 20 und übergibt diese Zah- 
len in der Variablen »zaehler%« 
an den Programmrumpf. 

Den Schleifenrumpf rückt 
man im Listing übrigens mei- 
stens um zwei oder drei Zei- 
chen ein. Dies macht ein Pro- 
gramm wesentlich übersichtli- 
cher. 

Amiga-Basic kann aber nicht 
nur in Einerschritten zählen, 
sondern mit jeder beliebigen 
Schrittweite. Um ihm das mitzu- 
teilen, benötigt man die Erwei- 
terung »STEP«. Sie wird folgen- 
dermaßen verwendet: 

PRINT ”Programm7: 
FOR-Schleife” 

FOR zaehler%-0 'TO 30 
STEP 3 

PRINT zaehler% 
NEXT zaehler% 

PRINT “Ende” 


Nun zählt der Computer 
»0,3,6,9...« bis 30 hinauf. Doch 
was passiert, wenn die obere 
Grenze des Zählers gar nicht 
getroffen wird, wenn wir z. B. 
die Zahl 30 in dem Programm 
durch 31 ersetzen würden? 

Probieren Sie es aus. Denn 
‚Amiga-Basic wartet nicht, bis 
die obere Grenze 31 erreicht ist, 
sondern führt die Schleife so 
lange aus, wie die Zählvariable 
kleiner oder gleich der oberen 
Grenze ist. In dem beschriebe- 
nen Fall zählt der Computer 
dennoch nur bis 30. 


Zählen 
in Basic 


Um schon im vorhinein wis- 
sen zu können, wie oft eine 
Schleife durchlaufen wird, soll- 
ten Sie die folgende Formel be- 
nutzen: 

INT((obere.Grenze-untere. 
Grenze)/Schrittweite)+1 

In unserem Spezialfall wären 
dies INT((31-0)/3)+1, also elf 
Durchläufe. 

Diese Formel gilt auch, wenn 
nicht ganzzahlig gezählt wird, 
sondern in Dezimalbrüchen. Ei- 
ne Schleife, die von null bis pi 
zählt, sähe so aus: 


FOR winkel!=0 TO 3.14152 
STEP 0.1 
NEXT winkel! 


Natürlich muß bei einer sol- 
chen Schleife auch die Zählva- 
riable vom Typ Single oder Dou- 
ble-Float sein. Zu guter Letzt 
können wir jetzt den Computer 
auch noch rückwärts zählen 
lassen. Hierbei muß zuerst die 
obere und dann die untere 
Grenze angegeben werden. 
Außerdem muß die Schrittweite 
negativ sein, denn sie wird ja 
vom Schleifenzähler jeweils ab- 
gezogen: 

PRINT "Programm: 

FOR rückwärts” 

FOR countdown%=10 TO 0 
STEP -1 

PRINT countdown% 
NEXT countdown% 

PRINT “Ende!” 


Dieser Countdown hat jetzt 
nur noch einen kleinen Schön- 
heitsfehler: Er läuft viel zu 
schnell ab. Wir müssen irgend- 
wie die Ausführung der Schleife 
verlangsamen. Zu diesem 
Zweck verwendet man sog. 
Dummy-Schleifen. Diese Dum- 
mies haben keinen Schleifen- 
rumpf, sondern sollen nur den 
Programmablauf verzögern. 


32 WWW HONECOMEUTERWORLD.EOM 


PRINT "Programms: 

Countdown” 

FOR countdown?= 

10 TO 0 STEP -1 
PRINT countdown& 
FOR dummy%=1 TO 5000 
NEXT dummy% 

NEXT countdown% 

PRINT "Ende! ” 


‚So, das ist jetzt schon fast ein 
perfekter Countdown. Die Dum- 
my-Schleife beschäftigt den 
Rechner jetzt jeweils für unge- 
fähr eine Sekunde. Wenn Sie 
übrigens eindrucksvoll miterle- 
ben wollen, warum man als 
Programmierer nach Möglich- 
keit Integer-Variablen für Schlei- 
fen verwendet, dann machen 
Sie doch aus der Variable 
dummy% eine Double-Float- 
Variable (also dummy#). Jetzt 
braucht die Dummy-Schleife 
fast dreimal so lang. B 

Noch eine allerletzte Ände- 
rung wollen wir am Countdown 
vornehmen. Wesentlich ein- 
drucksvoller würde es_ doch 
aussehen, wenn die Zahlen 
nicht nacheinander erscheinen 
würden, sondern alle auf der 
gleichen Stelle! Dazu benöti- 
gen wir den einfachen Befehl 
CLS. Er wird ohne Argumente 
gegeben und löscht den Bild- 
schirm. Fügen Sie ihn vor den 
PRINT-Befehl in Programm8 
ein. 

Die WHILE-WEND-Schleife 

Weniger gebräuchlich aber 
einfacher zu verstehen ist die 
WHILE-WEND-Schleife. Ge- 
ben Sie dafür das nächste Pro- 
grammbeispiel ein und sehen 
Sie es sich genau an. 

PRINT "Programm: 
Zahlenraten” 

RANDOMIZE TIMER 
Zufallszahl#= 
INT(RND(1)x10)+1 
Tipg=0 

WHILE (Tip%< >Zufalls- 


PRINT Ergebnis$ 


PRINT. "STRINGS-Sim. 

INPUT "Püllzeichen”; 

slaenge? 

WHILE (LEN(Ergebnis$) <=laenge) 
Ergebnis$-Ergebnis$+fuells 

2) 

PRINT Ergebniss 


Listing 2. Simulation von STRINGS() 


zah1$) 

INPUT "Ihr Tip *;Tip% 
WEND 
PRINT "Richtig! ” 


Zuerst wird der Variablen 
Zufallszzahl% eine zufällige 
Zahl zwischen eins und zehn 
zugeordnet, der Variable Tip% 
dagegen nul. Nach dem 
WHILE-Befehl steht ein sog. lo- 
gischer Ausdruck, »TiP% < > Zu- 
fallszahl%«. Dies bedeutet so- 
viel wie »Tip%« ungleich »Zu- 
fallszahl%«. 

Der Schleifenrumpf von 
WHILE-WEND wird wiederholt, 
solange der Ausdruck logisch 
wahr ist. Und da Zufallszahl% 
zwischen eins und zehn liegt 
und Tip% zu anfang null ist, 
sind die beiden Variablen auf 
jeden Fall ungleich, also ist 
auch der Ausdruck wahr. 

Nun muß der Benutzer sei- 
nen Tip abgeben, d.h. eine Zahl 
zwischen eins und zehn eintip- 
pen. Von »WEND« springt der 
Interpreter zur WHILE-Zeile 
und prüft nun den Ausdruck, 
Hat der Benutzer falsch getippt, 
wird die Schleife erneut durch- 
laufen. Hat er die richtige Zahl 
getroffen, so springt der Inter- 
preter auf die Zeile nach 
WEND, und gibt »Richtig!« aus. 

Nun istes wieder Zeitfüreine 
kleine Aufgabe, welche Sie al- 
leine lösen sollten. Erinnern Sie 
sich noch an die Funktion 
STRING$()/? Sie liefert als Über- 
gabewert einen String, der mit 
einem beliebigen Zeichen ge- 
füllt ist und wählbare Länge hat. 

Die Aufgabe ist, ein Pro- 
gramm zu schreiben, das glei- 
ches vollbringt. Nur sollte nun 
der Benutzer Füllzeichen und 
Länge eingeben und dann den 
String ausgegeben bekom- 
men. Knobeln Sie ruhig etwas 
herum, ich verrate nur sovlel: 
Die Aufgabe ist sowohl mit 
FOR-TO-NEXT also auch mit 
WHILE-WEND lösbar. 
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olden Paint Pot 


hen und beeindrucken. 
m 


Dieses Malprogramm der Superlative 
braucht den Vergleich zu professionellen 
Programmen nicht zu scheuen. Lassen Sie 
ich von der Funktionsvielfalt und der 
durchdachten Benutzerführung überra- 
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Diese 3000 Jahre alte Spielidee hat bis 
heute nichts von ihrem Reiz verloren. Mit 
seinen einfachen Regeln und trotzdem 
komplexen Spielaufbau ‘kommt keine 
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Direkt bestellen statt abtippen! 
Die aktuelle Diskette zum Sonderheft 10: 


Der File-Requester 


Dieser File-Requester, für höchste An- 
sprüche, gibt Ihren Basic-Programmen 


eine noch BE Note 


Basic-Kurs 
Tippen Sie nicht GEHE ab? Wollen Sie 


trotzdem nicht auf die lehrreichen Bei- 
spiel-Listings des Basic-Kurs aus diesem 
Heft verzichten? Auf der Programm-Ser- 
vice-Diskette haben Sie alle 30 Listings 
sofort zur Hand. 


Weiterhin befinden sich auf der Diskette 
alle Programme, die im Inhaltsverzeichnis 
des Amiga-Sonderhefts 10 mit einem 
Diskettensymbol gekennzeichnet sind. 


Bestell-Nr. 45010 


DM 29,90* 


sFr 24,90*/65 299,-* 
* Unverbindliche Preisempfehlung 


Weitere Angebote 
auf der Rückseite! 


PROGRAMMSERVICE 


Sie suchen hilfreiche Utilities 
und professionelle 
‚Anwendungen für Ihren 
Computer? Sie wünschen 


sich gute Software zu 
vernünftigen Preisen? Hier 
finden Sie beides! 

Unser stetig wachsendes 
‚Sortiment enthält interes- 
sane Listing-Software 

für alle gängigen 
‚Computertypen. Jeden 
‚Monat erweitert sich 

unser aktuelles Angebot 
um eine weitere inferes- 
sante Programmsammlung 
für jeweils einen 
Computertyp. 
Bei Fragen zu Bestellung und 
Versand der 
Programmservice- 

Disketten wählen Sie 


bite: 
Telefon (089) 4613-232. 


Bestellungen bite nur g 
Vorauskasse on: Markißtechnik 
Verlag AG, Buch- und Sofwore- 
Verlag, Hans-Pinsel-Siraße 2 
D-8013 Haar 

Telefon (089) 4613-0 

Schweiz: Markt&Technik 
Vertriebs AG, Kollerstrasse 37, 
CH-6300 Zu 

Telafon [042] 440.550, 
Österreich: MarkiäTechnik 
Verlog Gesellschaft m.b.H. 
Große Neugosse 28, 


A.1040 Wien 
Telefon (0222) 587 1393-0, 
Mieroromputigve,E, Schler 
Grande 17, A-3500 Krems, 
Tele (027 32] 74193; 
MES-Versand, Postfach 15, 
A-3485 Hoitzendorf; 
Bücherzenirum Meidling, 
Schönbrunner Sraße 231 
A-1120 Wien, 

Telefon (0222) 8331 96. 
Besellungen cus anderen 
Ländern Bi nur schrilich an 
MorkiTechnik Verlag AG, 

Ab. Buchvefieb, Hans Pinsel 
Sraße 2, 0.8014 Hear. Nur 
gegen Bezahlung der Rechnung 
Im voraus, 


itte kein Bargeld einschicken! 


Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die bei- 
‚geheftete Postgiro-Zahlkarte, 
‚oder senden Sie uns 
einen Verrechnungs- 
‚Scheck mit Ihrer Bestel- 
lung. Sie erleichtern uns 
die Auftragsabwicklung, 
und dafür berechnen wir 
Ihnen keine Versand- 
kosten. 


Bit für Bit nur Hits... 
„das Beste aus 
zwei Jahren 
Amiga-Magazin! 
Wir haben auf zwei Disketten die interessantesten Pro- 
jrammangebote der Jahre 1988 und 1989 für die Bereiche 
Anwendungen/Tools und Spiele gesammelt. Mit dieser 
Sammlung Tegen Sie einen leistungsfähigen Grundstein oder 


bilden eine sinnvolle Erweiterung für Ihre Programmbiblio- 
HE U ur besnarkre guräigen Polelpreis: 


DISK I: Anwendungen/Tools 
AmigaDat - Die Dateiverwaltung für alle Zwecke, von der 
Schellblaftensommlung über Ackessen bis hin zur Video- 
sammlung. 
Manager - Das komfortable Haushaltsbuch. 
Disketi — Drucken von Diskeitenlabels. 
MasterCruncher — Leistungsfähige Daten- und Programm- 
komprimierung. 
Recover - Reiten von gelöschten Daten. 
Resi - Macht Programme St. 
MouseCreator und PointerMaker — Generieren Sie Ihre 
eigenen Mauszeiger. _ 
DiskSpy - Problemloses Ändern von Daten direkt auf Diskette. 
‚Amiga Bringt Ordnung in Ihre Diskettensammlung. 
Fade infaches Ein- und Ausblenden von Bildschirmen 
N tolle Effekte. 
VirusControl - Der komfortable Virenschutz. 
Ir - Die Möglichkeit bei auftretenden Fehlern Ihr 
C-Programm sauber zu beenden. 

ISK Il: Die Spielesgmmlung, 
% man haben muß Ss 
Action 
Troof - Dos spannende Motorradrennen der Zukunft 
Quadron - Geschicklichkeit bei höchsten Geschwindigkeiten 
sind gefragt. 


ieleumsetzungen 
Poker 2 Wenn Bekommen Sie den Royal-Flush. 
Billard - Tolle Grafik erwartet Sie bei dieser 
fantastischen Umsetzung. 
Domino - Verblüfende Umsetzung des bekannten Spiels. 
Kniffel - Eine gone verblüffende Würfelspiel- 
umsetzung für bis zu vier Spieler. 
3D-Tic-Tac-Toe - Dreidimensionales Spiel zum Kombinieren 
und Denken. 


Best of the Rest 
za — iga als Psychotherapeut. 


Arriba — Die Tastatur lernt sprechen. 

Die Beschreibungen der Programme sind als Reodmefile auf 
den jeweiligen Disketten. 

Bestell-Nr. 47901 

Zwei Disketten randvoll mit tollen Programmen zum Paket- 


pres von DM 39,90* sfr 39,-"/ 85 390,-" 


Amiga-Sonderheft 7 

Reflex: Dos neueste Projekt von Arno Gölzer. »Reflex« ist der 
Nachfolger der beliebten Billordumsetzung. Lassen Sie sich von 
einer einzigarigen Spielidee und der tollen grafischen Umset- 
Zung begeistern, Beschreibung auf Seite 6R. Noch mehr starke 
Seide... Ob Aion, oder Sirelegiespiel — hier finden Sie alles, 
was das Spielerherz begehrt. Fast Freddie Die Beschreibung 
dieses Actionspiels finden Sie auf Seite 86. Memory Eine inter- 
essonte grafische Umsetzung für Leute mit gutem Gedächtnis. Be- 
schreibung auf Seite 97. Reactor Das Strategiespiel, das auch 
‚Atomkrafigegner fesseln wird. becusiling auf Seite 107. 
Schiebespiel Strategisches Denken und Tüfteln ist bei diesem 
Spiel das A und O. Beschreibung auf Seite 88. 
Vector-Grafik-ibrary: Nutzen Sie die ganze Faszination der 
Vektor-Grafik. Mit dieser Bibliothek bauen Sie Vecior-Grafiken 
auf einfache und schnelle Weise in Ihre Programme ein. Der 
Vorteil: Es wird nur wenig Speicherplatz und Rechenzeit ver- 
Lraucht. Beschreibung auf Seite 22 

Zwei Disketten 


Bestell-Nr. 45907 DM 34,90* sFr 29,50*/65 349,-* 


Amiga-Sonderheft 2 
Grafik, Anwendung 
Object-Editor: Animierte Figuren, beispielsweise für eigene 


Spiele, entwickeln Sie mit diesem Editor auf komforioble Weise. 
Sogar mit Deluxe Paint erstellte Pinsel lassen sich einlesen. 


Heushaltsbuch: Mit diesem hervorr An: 
gramm verwalten Sie ole Einnahmen und Ausgaben auf über- 


Sichtliche Weise. Eine Monats- oder Jahressigfisik zeigt, in 
welchen Bereichen Sie zukünftig sparen können. Jetzt haben Sie 


DRLD.COM 


|-Master: Lernen Sie im Zehn-Finger-System zu Nena 
Mit diesem didaktisch ausgereiften Programm ist dies keit 
Problem. Für Programmierer and sogar Speziollzktonen 
wichtigen Sonderzeichen vorhanden. 
FastloadCopy: Dieses Tool bringt den DIR-Befehl auf Trab. Na 
der »Operation« wird das Inhaltsverzeichnis einer Diskette ii 
D-Zug-Tempo eingelesen. Zusätzlich kopiert das Programm Dis 
keiten und versieht diese mit dem schnellen Directory. 
Weiterhin befinden sich auf der Diskette alle Programme, die i 
Inhaltsverzeichnis des Amiga-Sonderhefts 2 mit einem Diskeit: 
Be Be sind. 

,5°-Diskette für Amiga 
Bestell-Nr. 45802 DM 29,90* sfr 24,90*/65 299, 


Amiga-Sonderheft 8 


Spiel Nr. 2: Oel-Fieber n 

Steigen Sie ein in das Millionengeschäft um Öl und Aktien. Ih 

Fähigkeiten als Manager werden auf immer neue Bewährung: 
roben gestellt. Das amüsante Würfelspiel erfordert dabei ei 

Na reativität, um immer neue Strategien zu entwickeln. Wi 

Sie mit Öl- und Aktiengeschäften reich werden können, lesen Si 

in diesem Heft ab Seite 89. 


Sicher ist sicher 
Unumpanglich Tür jeden Amiga-Uter ist ein leistungsfähi 


‚Anti-Viren-Programm. »Virus-Control v 1.4« schützt Sie 
allen bekannten Bootblock- und Linkviren sowie durch sei 
Lernfähigkeit auch vor zukünftigen »Infektionskrankheiten‘ 
Schaffen Sie sich mit »Virus-Control v 1.4« ein zuverlässiges I 
munsystem für Ihren Amiga. Die Anleitung finden Sie auf 


Diskette. 
Bestell-Nr. 45908 DM 29,90* sfr 24,90'/55 299, 


‚Amiga-Sonderheft 9 


Grafik 3, 

‚Amiga-Objekt-Editor: Überdimensionale Sprites spielend leich 
entwickelt. AOE-Convert: bauen Sie die mit dem Amiga-Obje 
Editor entwickelten Super-Sprites in Ihre Basic-Programme eii 
IFF-Fiher: Forbbilder auf faszinierende Weise modihzieren. Ra 


Tracer: Arbeiten mit dem Spiel von Licht und Schatten. 3DAnit 
Gittergrafiken - bewegt, perspektivisch, dreidimensional. 


Spiele 
Flugsimulator - Ping-Pong - Krieg der Sterne - Denkspi 
Trofningslager _ Strafegiespiel »Buh Au C5« - Börsenspiel 


Tools 

MasterCruncher: Packt alles. Virus Killer: Unentbehrlich. 

TestDev: Welche Devices sind vorhanden? Weiches Ein- um 

‚Ausblenden von Bildern. Shuffle: Der schnelle Weg zum hintes 

Aal Fenster. Felder; Beschleunigtes Abarbeiten von numerische 
eldern. 


Anwendungen 
Keyboard-Master: Lernprogramm für das 1ngers ‚stem. 
Sound-Effekt-Editor: Geräusche selbst erzeugen. Etiketten: Da 
Programm für Ihre Diskettenetiketien. hscroll: Laufschrifte 
erzeugen. Uni-Datei: Universelle Dateiverwaltung mit komfor 
tabler Benutzerführung. 


Außerdem finden Sie alle Programme aus den Artikeln, die m 
dem D-Symbol gekennzeichnei sind, auf den Programmservict 


Disketten. 
Bestell-Nr. 45009 DM 29,90* sFr 24,90*/85 299 - 
* Unverbindliche Preisempfehlun 


Zwei Disketten! 


Wi chti Mit den Gutscheinen aus dem »Super-Software- 
u Scheckheft« zu DM 149,- können Sie Software- 

Disketten Ihrer Wa” aus dem Programmservice-Angebot im Wert von 

DM 180,-bestellen- egal, ob diese DM 19,90, DM 29,90 oder DM 89,-kosten 

Sie sparen DM 30,-! 

Das Super-Software-Angebot finden Sie in den Zeitschriften 

Computer Persönlich, PC Magazin Plus, Amiga-Magazin, 

Amiga-Sonderheft, 64’er-Magazin, 63'er-Sonderheft, ST-Magazin, 

PC Magazin, Computer live. 

Übrigens: Die Gutscheine können Sie auch übertragen oder verschenken! 

Das Scheckheft können Sie per Verrechnungsscheck oder mit der 

eingeheiteten Zahlkarte direkt beim Verlag bestellen. 

Kennwort: »Super-Software-Scheckheft«, Bestell-Nr. W156 


Welche dieser beiden Lösun- 
gen Sie bevorzugen, liegt ganz 
bei Ihnen. Lediglich bei der 
WHILE-WEND-Version muß 
man beachten, daß der Fall 
LEN(Ergebnis$)=laenge auch 
noch zu einem Schleifendurch- 
lauf führt und keinen Abbruch 
bewirkt. Ansonsten wäre »Er- 
gebnis$« am Schluß ein Zei- 
chen kürzer als »laenge«. Das 
‚Amiga-Basic-Zeichen für »klei- 
ner oder gleich« ist übrigens 
»< =«. Entsprechend wird »grö- 
Ber oder gleich« ausgedrückt 
durch »> =«. 

Der GOTO-Befehl und die 
Label 

Erinnern Sie sich an unser al- 
lererstes Programm? Dort ver- 
wendeten wir ein sog. Label so- 
wie den »GOTO«-Befehl. »GO- 
TO« bewirkt einen Sprung der 
Programmausführung zu der 
durch das Label bezeichneten 
Stelle. Dabei kann das Label 
vor oder nach dem GOTO-Be- 
fehl stehen, das spielt keine 
Rolle. Auch verarbeitet Amiga- 
Basic beliebig viele Labels, 
nicht nur unser »Anfang«. Für 
Labelnamen gelten die glei- 
chen Regeln wie für Variablen- 
namen, nur daß kein besonde- 
res Kennzeichen am Ende ste- 
hen muß. 

Vielleicht haben Sie schon 
auf einem kleineren Computer 
in Basic programmiert oder an- 
dere Basic-Listings gesehen. In 
früheren Basic-Dialekten hatte 
jede Programmzeile eine eige- 
ne Zeilennummer. Dies hatte 
natürlich den Vorteil, daß Label 
überflüssig waren, man konnte 
ja einfach eine Zeilennummer 
als Argument für GOTO ange- 
ben, 

Bei Amiga-Basic aber sparen 
Sie sich die ganzen Numerie- 
rungsprobleme und auch den 
Tippaufwand. Außerdem ist ein 
Labelname auf jeden Fall über- 
sichtlicher als eine Zeilennum- 
mer. 

Um sich an Labels in Pro- 
grammen zu gewöhnen, sollten 
Sie sich das folgende Pro- 
grammi0 in Listing 3einmal ge- 
nau ansehen und dann starten: 


Diese Sprünge führen kreuz 
und quer durch das Programm, 
aber das macht dem Interpreter 
nichts. Nur sollten Sie nach 
Möglichkeit ein solches Chaos 
in Ihren Programmen vermei- 
den, denn das machtein Listing 
extrem unübersichtlich. 

Ganz nebenbei wurde Ihnen 
dabei noch ein neuer Befehl un- 
tergeschoben: 

»END«. Normalerweise ist 
ein Programm beendet, wenn 
keine weiteren Befehle folgen, 
am Ende des Listings. In Pro- 
grammi0 allerdings ist es not- 
wendig, daß ein Befehl zur vor- 
zeitigen Beendigung eingefügt 
wird, denn die zuletzt auszufüh- 
renden Befehle stehen durch- 
aus nicht am Listingende. 
»END« bewirkt also eine soforti- 
ge Beendigung der Programm- 
ausführung. 


Der GOSUB-Befehl 

Unser nächster Befehl führt 
ebenfalls zu einem Programm- 
sprung, allerdings mit einem 
wichtigen Unterschied. Diesen 
müßten Sie selbst erkennen 
können, wenn Sie das folgende 
Programm starten und das Er- 
gebnis betrachten. 


PRINT "Programmii: 
GOSUB-Demo” 

GOSUB Unterroutine 
PRINT "End des 
Programms” 

END 

Unterroutine: 
PRINT "Der Sprung 
wurde ausgeführt” 
RETURN 

Der Interpreter springt wie er- 
wartet zum Label »Unterrouti- 
ne« und führt dort den PRINT- 
Befehl aus. »RETURN« aller- 
dings bewirkt, daß die Pro- 
grammausführung wieder zum 
GOSUB-Befehl zurückkehrt 
und die darauffolgende Pro- 
grammzeile bearbeitet. 

Die Wirkung ist also die glei- 
che, wie wenn man die zwi- 
schen dem Label und RETURN 
stehenden Befehle anstatt der 
GOSUB-Zeile eingefügt hätte. 


PRINT “Progranm10: 
GOTO Labelı 
Labeld: 

PRINT "Sprung 4 durchgei 


2: 
"Sprung 2 durchgeführt” 

G0T0 Labe13 

Labeil: 

“Sprung 1 äurchgeführt” 


PRINT "Sprung 3 durchgeführt” 
GO Label4 


Listing 3. GOTO-Demo 
macht einiges klarer 


BNISRSONDERIPT OU O MECOMPUTERWORLD. COM, 


GIRUNDLAGEN 


Daher nennt man diese Be- 
fehlsfolge, welche mit »GO- 
SUB« angsprungen wird, eine 
Unterroutine oder auf englisch 
ein Subprogram (daher auch 
GOSUB). Den großen Vorteil 
von Unterroutinen können Sie 
am folgenden Beispiel-Pro- 
grammi2 in Listing 4 erkennen. 


ches handelt es sich auch. Die 
Unterroutine muß immer mit 
zwei Argumenten aufgerufen 
werden, welche vom Typ »Inte- 
ger« sind. Innerhalb der Unter- 
routine bekommen diese bei- 
den Argumente die Variablen- 
namen »Argument1%« und »Ar- 
gument2%«, und mit ihnen 


ses betı 


Listing 4. 
GOSUB-Demo 


rägt";flaechet 


nn ee. — —  — nd) 


Freilich ist dieses Programm 
durch die drei Unterroutinen 
wesentlich länger geworden, 
als dies nötig wäre. Dafür wüßte 
ein nicht Basic-Kundiger aber 
anhand der drei GOSUB-Zeilen 
und den Labelnamen genau, 
was in dem Programm passiert. 

Würde eine Unterroutine 
nicht eine, sondern 50 Pro- 
grammzeilen umfassen, wäre 
dies ein ganz gewaltiger Vorteil. 
Denn dann hätte man ein Pro- 
gramm von über 150 Zeilen al- 
leine anhand von drei Pro- 
grammzeilen überblickt. Außer- 
dem kann man nun ganz leicht 
Zwischenschritte einfügen. Ei- 
ne solche Programmiertechnik 
nennt man modular. 

Die SUB-Routinen 

Mit Amiga-Basic lassen sich 
Unterroutinen auch anders als 
mit »GOSUB« und »RETURN« 
verwirklichen. Der Unterschied 
ist zwar klein, aber fein. Doch 
sehen Sie selbst in Listing 5: 

Fangen wir bei der Erklärung 
des Programm13 hinten an. Die 
Unterroutine steht zwischen 
den Befehlen »SUB« und »END 
SUB«. Die Unterroutine trägt 
den Namen »Multiplikation«. 
Das weitere in der SUB-Zeile 
erinnertan eine Funktions-Defi- 
nition, und um so etwas ähnli- 


——— m ——————————————————————— === 


\LL/SUB-Deno” 


lerif,2eehler2g) 


nt1f, Argunent2%) STATIC 


Listing 5. CALL-SUB-Demo 1 


kann innerhalb der Unterrouti- 
ne gerechnet werden. 

Die Beifügung »STATIC« zum 
Subbefehl hat eine besondere 
Bedeutung, auf die später noch 
hingewiesen wird. Auf jeden 
Fall sollten Sie »STATIC« immer 
mit angeben. 

Aufgerufen wird eine solche 
Unterroutine dann mit dem Be- 
fehl »CALL«. Auf »CALL« folgen 
der Name der Unterroutine so- 
wie die Argumente in Klam- 
mern. Dabei muß man ganz be- 
sonders aufpassen, daß die Ty- 
pen der Argumente beim Aufruf 
ganz genau mit denen in der 
Definition (nach dem SUB-Be- 
fehl) übereinstimmen. 

Zum Einüben von Schleifen- 
konstruktionen haben Sie be- 
reits eine Simulation der 
STRING$(-Funktion program- 
miert. Gleiches wollen wir jetzt 
noch einmal machen, diesmal 
jedoch soll die Ausgabe des ge- 
wünschten Strings in einer Un- 
terroutine geschehen. Der Auf- 
ruf geschieht mit »CALL«, wo- 
bei das Füllzeichen und die 
Länge des Strings die Argu- 
mente sein sollen. 

Sie können es gerne selbst 
probieren, diese Aufgabe als 
Programm zu lösen. Hier fin- 
den Sie jedenfalls die Lösung: 


35 


GIRUNDLAGEN 


PRINT "Programm 
INPUT "Füllzeichen ";fuell$ 
"Länge ";laenges 
vingSim( fuel1$,1eenge?) 


anzahl? 
‚gebnisä+zeichens 


STRINGS-Simulation” 


ichens, anzehl$) STATIC 


Listing 6. CALL-SUB-Demo 2 


Lokale Variablen 

Nun wollen wir auf die Funk- 
tion der Ergänzung »STATIC« 
sowie eine Besonderheit von 
SUB-Routinen eingehen. Star- 
ten Sie doch bitte Programm14. 
Wenn Sie im Direktmodus 
»PRINT fuell$« eingeben, er- 
halten Sie das während des IN- 
PUT-Befehls eingegebene Füll- 
zeichen. Ebenso ergibt »PRINT 
laenge%« die Eingabelänge. 
Geben Sie bitte die folgenden 
drei Befehle ein: 
PRINT zeichen$ 
PRINT anzah1% 
PRINT Ergebnis$ 


Der Inhalt aller drei Variablen 
istnullbzw. ein Leerstring. Denn 
innerhalb einer SUB-Routine 
verwendeten Variablen sind sog. 
lokale Variablen. Um noch ein- 
mal auf das gute alte Schubla- 
den-Modell zurückzukommen, 
könnte man sagen, das Haupt- 
programm und jede SUB-Routi- 
ne haben ihren eigenen Schrank 
mit den Schubladen. 

Daher kann im Hauptpro- 
gramm nicht auf die Schubla- 
den im Schrank einer SUB- 
Routine zurückgegriffen wer- 
den und andersherum. Außer- 
dem können auch Variablen 
gleichen Namens in Hauptpro- 
gramm und SUB-Routine mit 
verschiedenem Inhalt existie- 
ren, ohne daß sie sich gegen- 
seitig beeinflussen. 

»STATIC« nun hat die Wir- 
kung, daß die lokalen Variablen 
einer SUB-Routine während je- 
dem Aufruf der Routine ihren 
Wert behalten. In unserem 
Programmi4 müßte demnach 
bei einem zweiten Aufruf von 
»StringSim« der Ergebnis$- 
String noch gefüllt sein. Dies 
kann ganz leicht nachgeprüft 
werden, indem sie gleich nach 
der CALL-Zeile eine zweite, 
identische CALL-Zeile einfügt, 
so daß die Routine zweimal hin- 
tereinander aufgerufen wird. 

‚Angenommen, man gibt als 
Füllzeichen einen Stern»*«und 
als Länge 10 ein, so erscheint 
zuerst wie erwartet eine Reihe 
von zehn Sternchen. Doch was 


passiert dann? Die Routine 
wird erneut aufgerufen, und zu 
dem bereits zehn Sternchen 
langen Ergebnis$ addiert der 
Computer nochmals zehn 
Sternchen. Als Folge erscheint 
am Bildschirm eine weitere Rei- 
he, diesmal 20 Sternchen lang. 

Nun kann es aber durchaus 
vorkommen, daß man ganz ger- 
ne auch im Hauptprogramm 
auf eine Variable einer SUB- 
Routine zugreifen würde. Dafür 
existiert der Befehl »SHARED«. 


Die IF- 
Konstruktionen 


Er wird gleich zu Anfang einer 
SUB-Routine verwendet und 
macht die als Argumente ange- 
gebenen Variablen zu sog. glo- 
balen Variablen. Auf globale 
Variablen können SUB-Routine 
und Hauptprogramm gleicher- 
maßen zugreifen. 

»TestVariablei« in Programm- 
15 ist eine lokale Variable, also 
führt der erste PRINT-Befehl im 
Hauptprogramm zur Ausgabe 
von null. »TestVariable2« dage- 
gen wird zu Beginn von »Sub- 
Prog2« als global deklariert, da- 
her kann auch das Hauptpro- 
gramm auf diese Variable zu- 
greifen. Darum ergibt der zwei- 
te PRINT-Befehl »999«. 
Die IF-Konstruktionen 

Die IF-Anweisung existiert in 
einer Unmenge verschiedener 
Formen. Wie immer wollen wir 
mit der einfachsten Anwen- 
dung anfangen. Mit IF (falls«) 
läßt sich die Ausführung eines 
GOTO-Befehl an eine Bedin- 
gung knüpfen. Doch sehen Sie 
selbst: 


PRINT "Programni6: 
IF-Demo” 
Labell: 
INPUT "Eine ganze 
Zahl ";genzzahl% 
IF (ganzzanl%<>0) 
GOTO Labell 
PRINT ”Ende” 
Dieses Programm läßt vom 
Benutzer so oft eine Zahl einge- 
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ben, bis diese Zahl gleich null 
ist. Dies liegt an der IF-Zeile. Sie 
lautet in Klartext: »Wenn die Va- 
riable ganzzahl% ungleich null 
ist, dann springe zu Labell«. Ist 
die Bedingung nicht erfüllt, so 
passiert nichts, und das Inter- 
preter fährt mit der folgenden 
Zeile fort. Ganz einfach, oder? 

Nun erweitern wir unser Pro- 
grammi6 um eine weitere IF- 
Anwendung: 

PRINT "Programn16: 
IF-Demo” 

Labell: 

INPUT "Eine ganze 
Zahl ";ganzzahl% 

IF (ganzzahl%=1) THEN 
PRINT ”Die Zahl war 
eins!” 

IF (ganzzan1%<>0) 
GOTO Labell 

PRINT "Ende” 

Nun wird nicht ein GOTO-Be- 
fehl, sondern ein PRINT-Befehl 
mit einer Bedingung versehen. 
Der Unterschied ist, daß bei al- 
len Befehlen außer »GOTO« 
noch das Befehlswort »THEN« 
einzufügen ist. Ansonsten gilt 
auch die Regel, daß bei Nicht- 
erfüllung der Bedingung ein- 
fach die nächste Zeile bearbei- 
tet wird. 

Es lassen sich nicht nur ein- 
zelne Befehle wie GOTO oder 
PRINT bedingen, sondern auch 
ganze sog. Programmblöcke: 
PRINT ”Programm16: 
IF-Demo” 

INPUT "Eine ganze 
Zahl ";ganzzanl% 
IF (ganzzahl%=1) THEN 


PRINT ”Die Zahl war 


Bei einer solchen Konstruk- 
tion werden sämtliche Befehle 
zwischen den Befehlswörtern 
THEN und END IF unter Bedin- 
gung gestellt. Man nennt diese 
Befehlssequenz zwischen den 
beiden Befehlen einen Pro- 
grammblock. 

Das ist aber noch lange nicht 
alles, was IF in Amiga-Basic zu 
bieten hat. Da wäre noch die 
‚Alternativ-Anweisung »ELSE«: 
PRINT "Programmi16: 
IF-Demo” 

INPUT “Eine ganze 
Zahl ";genzzahl% 
IF (ganzzahl%=1) THEN 

PRINT ”Die Zahl war 

eins!” 


ELSE 
PRINT ”Die Zahl war 
nicht eins!” 
PRINT "--. 
END IF 


ELSE bedeutet hierbei soviel 
wie »ansonsten«. Ist die Bedin- 
gung nach IF erfüllt, so wird der 
auf THEN folgende Programm- 
block ausgeführt. Ist die Bedin- 
gung nicht erfüllt, wird der auf 
ELSE folgende Programm- 
block ausgeführt. 

Eine letzte Erweiterung soll 
noch eingeführt werden. Auch 
diese Variation sehen Sie sich 
am besten am Beispiel in Li- 
sting 8 an. 


5: SHARED-Demo” 


SUB SubProg1(dum 
stVeriabl: 


Listing 7. SHARED-Demo 


'T "Die Zahl war größer als drei!” 


Listing 8. IF-Demo 1 
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Ist die eingegebene Zahl 
gleich eins, so wird der erste 
PRINT-Befehl ausgeführt, und 
das Programm ist beendet. An- 
sonsten wird die zweite Bedin- 
gung überprüft. Ist sie erfüllt, 
wird der zweite PRINT-Befehl 
ausgeführt, und das Programm 
ist beendet. Ist auch die zweite 
Bedingung nicht erfüllt, geht es 
mit der dritten Bedingung wei- 
ter. Trafen alle drei Bedingun- 
gen nicht zu, wird der PRINT- 
Befehl nach ELSE ausgeführt. 

So lassen sich mehrere Spe- 
zialfälle (gleich eins, gleich zwei 
usw.) mit jeweils einem Pro- 
grammblock »versehen«. Zu- 
dem führt auch nicht Nichterfül- 
lung sämtlicher Bedingungen 
zur Ausführung eines besonde- 
ren Programmblockes. 


Neue Eingabe- 
Befehle 


Beachten Sie dabei bitte, daß 
»ELSEIF« nur ein einziges Wort 
ist und kein Leerzeichen ent- 
hält! Bei der Behandlung der 
IF-Anweisung enthält das Ami- 
ga-Basic-Handbuch zahlreiche 
Fehler. Eine Trennung von ELSE 
und IF führt auf jeden Fall zu 
einem Fehler! 

Nach so viel Theorie ist es 
natürlich wieder Zeit für eine 
kleine Programmieraufgabe. 
Gesucht ist eine Verbesserung 
des Zahlenrate-Spiels. Wenn 
der Benutzer seinen Tip einge- 
‚geben hat, soll ihm der Compu- 
ter sagen, ob er zu groß oder zu 
klein geschätzt oder gar getrof- 
fen hat. Im Falle eines Treffers 
soll das Programm mit END 
beendet werden, ansonsten 
soll es einen neuen Tip verlan- 


gen. 

Zugegeben, auch diese Auf- 
gabe ist nicht ganz einfach, 
aber schließlich macht ja 
Übung den Meister. Wie immer 
bekommen Sie auch eine Mu- 
sterlösung geboten, Sie finden 
sie in Listing 9. 


Die numerischen Variablentypen in Amiga-Basic 


Kurze Integer-Zahl (engl. Integer): ganze Zahlen zwischen 


-32768 und +32767 


lange Integer-Zahl (engl. long Integer): ganze Zahlen zwischen 
-2147483648 und +2 147483647 
Fließkomma-Zahl einfacher Genauigkeit (engl. single Float): 
Dezimalbrüche mit sieben Stellen 
Fließkomma-Zahl doppelter Genauigkeit (engl. double Float): 


Dezimalbrüche mit 16 Stellen 


Tabelle 1. Variablen sind wichtig - sie kosten Speicher 


Zur Abwechslung nach den 
vielen neuen Befehlen gibt es 
jetzt einmal eine neue Funk- 
tion, Sie ist entfernt mit dem 
INPUT-Befehl verwandt und 
dient zur Eingabe eines einzel- 
nen Zeichens über die Tastatur. 

Dazu muß aber noch ein Be- 
griff erklärt werden: der Tasta- 
turpuffer. Wenn man während 
des Ablaufes eines Programms 
(und nicht während eines IN- 
PUT-Befehls) eine Taste am 
Computer drückt, so passiert 
zwar unmittelbar nichts, jedoch 
wird der Tastendruck nicht ver- 
gessen. Der Computer legt ihn 
in einem speziellen Speicher- 
bereich ab, den man den Tasta- 
turpuffer nennt. 

Drückt man mehrere Tasten, 
so werden alle diese Zeichen 
der Reihenfolge nach im Tasta- 
turpuffer gespeichert. Solange 
keine Taste gedrückt wurde, ist 
der Tastaturpuffer leer. 

Die Funktion INKEYS$ ‘über- 
gibt das erste Zeichen des Ta- 
staturpuffers. Ist dieser leer, so 
wird auch ein leerer String 
übergeben. Läßt man durch ei- 
ne Schleife den Tastaturpuffer 
so lange abfragen, bis er nicht 
mehr leer ist, so bedeutet das, 
ein Programm wartet auf einen 
Tastendruck vom Benutzer. In 
der Praxis sieht das so aus: 
PRINT "Programmi8: 
INKEY$-Demo” 

WHILE (eingabe$="") 
eingabe$=INKEY$ 

WEND 

PRINT eingabe$ 


PRINT *Prograna! 
RANDOMIZE TIMER 
ZufallszahlgeiNt 
Nochmalkaten: 
INPUT *Ihr 
IF (Tip£>Zufallszehlf) 
PRINT "Zu hoch ges 
EISEIF (Tipf<Zufel! 
PRINT "Zu niedrig gesci 
ELSE 
PRINT Richtig!” 
znD 
END IF 
GOTO NochmalReten 


Listing 9. IF-Demo 2 
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Mit unserer gerade neu ge- 
lernten IF-Konstruktion kann 
man dann natürlich auch ab- 
hängig von der gedrückten Ta- 
ste verschiedene Programm- 
blöcke ablaufen lassen. 

Das »Programm19« in Listing 
10 müßten Sie nun schon allei- 
ne verstehen. Drückt der Be- 
nutzer die Taste <1> bzw. 
<2> ‚so wird »eins« bzw. »zwei« 
ausgegeben. In allen anderen 
Fällen (also auch, wenn gar kei- 
ne Taste gedrückt wurde) wird 
zurück zur Pufferabfrage ge- 
sprungen. 

Die Befehle READ, DATA und 
RESTORE 

Gänzlich anders arbeitet der 
Befehl READ, auch wenn er mit 
zur Gruppe der Eingabe-Befeh- 


zweite String gelesen und so 
weiter, 

»READ« und »DATA« funktio- 
nieren mit Zahlen jeden Typs. 
Dabei muß man allerdings auf- 
passen, daß die Variable bei 
»READ« auch genau im Typ mit 
den Zahlen bei »DATA« überein- 
stimmt. »READ« darf übrigens 
auch mit mehreren Argumen- 
ten verwendet werden: 


PRINT ”Programm21: 

READ-DATA-Demo” 

DIM zah1$(10) 

FOR zaehler%=1 TO 10 
READ zahl$(zaehler%) 

NEXT zaehler% 

DATA eins, zwei,drei,vier 

DATA fünf,sechs,sieben, 

acht,neun,zehn 


Wie Sie an dem Beispiel se- 
hen, können die DATA-Argu- 
mente auch beliebig auf mehre- 
re DATA-Zeilen aufgeteilt wer- 
den, entscheidend ist hier nur 
die Reihenfolge innerhalb des 
Programms. 

‚Auf keinen Fall aber darf es 
passieren, daß man versucht, 
mehr Werte mit »READ« zu le- 
sen, als in den DATA-Zeilen an- 


Listing 10. INKEY$-Demo 


le gezählt wird. Allerdings liest 

auch er aus einer Art Puffer ein- 

zelne Daten, Dies sieht aber so 
aus: 

PRINT "Programm20: 

READ-DATA-Demo” 

FOR zaehler%=1 TO 10 

READ zahl$ 

PRINT zahl$ 
NEXT zaehler% 

DATA eins,zwei,drei,vier 
fünf,sechs,sieben 
acht,neun,zehn 

Durch Kommata getrennt ste- 
hen in einer Zeile, welche mit 
dem Befehl »DATA« beginnt, 
zehn Strings. Ausnahmsweise 
dürfen diese Strings auch ohne 
Anführungszeichen angege- 
ben werden. 

Der READ-Befehl liest beim 
ersten Schleifendurchlauf den 
ersten String in die Variable 
»zahl$«. Beim zweiten Schlei- 
fendurchlauf wird dann der 


gegeben sind. Das würde zu ei- 
ner Fehlermeldung führen. 
Oftmals liest man die DATA- 
Werte in eine Feldvariabe, um 
sie später immer wieder zur 
Verfügung zu haben, Dies sieht 
dann so aus: 
PRINT "Programm21: 
READ-DATA-Demo” 
DIM zah1$(10) 
FOR zaehler%=1 TO 10 
READ zanl$(zaehler%) 
NEXT zaehler% 
DATA eins,zwei,drei,vier 
DATA fünf,sechs,sieben, 
acht,neun,zehn 
Nach Ablauf dieses Pro- 
gramms befinden sich die 
Strings aus den DATA-Zeilen in 
der Feldvariablen »zahl$()«. Da- 
durch istin diesem Fallz.B. eine 
direkte Umwandlung von Zah- 
len in ihren Namen möglich, 
denn »zahl$(1)« ergibt »eins«, 
»zahl$(2)« ergibt »zwei« usw. 
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Schließlich kann man auch 
noch mit dem Befehl »RESTO- 
RE« festlegen, ab welcher DA- 
"TA-Zeile die Daten gelesen wer- 
den. Dazu verwendet man ein 
Label vor der DATA-Zeile, ab. der 
man die Daten einlesen möch- 
te. Eine Demonstration finden 
Sie in Listing 11. 


FOR zaehlerf=1 10 3 
READ zahl! 
PRINT zahl! 


FOR gaehlerf«l TO 3 
READ zahl! 
PRINT zahl! 

NEXT zaehlerf 


Nun wollen wir uns einem 
gänzlich neuen, dafür aber um 
so Interessanteren Thema zu- 
wenden: der Grafik. Der Amiga 
ist ja mit seiner hohen Auflö- 
sung und den 4096 möglichen 
Farben der Grafik-Homecom- 
puter schlechthin. Amiga-Basic 
unterstützt diese vielfältigen 
Fähigkeiten auch recht gut, 

Der erste Befehl, den wir im 
Zusammenhang mit der Grafik- 
ausgabe des Amiga kennenler- 
nen, ist »SCREEN«. Er öffnet, 
wie der Name schon sagt, ei- 
nen neuen Screen. Ein Screen 
ist am Amiga die Grundlage für 
jegliche Ausgabe. Den Work- 
bench-Screen kennen Sie ja 
bereits, er ist durch einen wei- 
ßen Balken am oberen Rand 
auf dem blauen Grund gekenn- 
zeichnet. 

Die SCREEN-Befehle 

Der Screen, auf dem man 
später Windows (Fenster) öff- 
nen kann, um darin Text oder 
Grafik auszugeben, hat eine 
wichtige Funktion. Er bestimmt, 
in welcher Auflösung und mit 
wie vielen Farben in den Win- 
dows gearbeitet werden kann. 
Denn alle Windows auf einem 
Screen haben die gleiche Auf- 
lösung und die gleichen Farben 
des Screens zur Verfügung. 

Der Befehl SCREEN wird 
nach der folgenden Syntax ver- 
wendet: 

SCREEN Nummer%,Brei- 
te%,Höhe%,Tiefe%,Modus% 

Die Nummer des Screens 
muß zwischen eins und vier lie- 
gen und kann vom Program- 
mierer frei gewählt werden. Da 
jeder Screen eine andere Num- 
mer besitzen muß, sind (inklusi- 
ve Workbench-Screen) maxi- 


mal fünf Screens gleichzeitig 
möglich. Allerdings sind die- 
sem theoretischen Wert durch 
den Speicher Grenzen gesetzt. 

Auch der Modus wird durch 
eine Zahl zwischen eins und 
vier angegeben, jedoch haben 
diese vier Werte eine feste Be- 
deutung: \ 


Listing 11. RESTORE-Demo 


Modus 1 bietet niedrige Auflö- 
sung mit maximal 320 Punkten 
‚pro Zeile und 200 Zeilen. 
Modus 2 bietet hohe Auflösung 
‚mit maximal 640 Punkten pro 
Zeile und 200 Zeilen. 

Modus 3 bietet niedrige Auflö- 
‚sung mit maximal 320 Punkten 
‚pro Zeilen, bei 400 Zeilen. 
Modus 4 bietet hohe Auflösung 
mit maximal 640 Punkten pro 
Zeile, bei 400 Zeilen. 

Die Modi 3 und 4 arbeiten im 
sogenannten Interlace-Verfah- 
ren, welches die Zeilenzahl ver- 
doppelt. Allerdings werden sie 
eher selten verwendet, da da- 
bei am Bildschirm ein starkes 
Flimmern auftritt. 

In den Modi 1 und 3 ist nun 
die Bildschirmbreite normaler- 
weise 320, in den Modi 2 und 4 
entsprechend 640. Zwar sind 
kleinere Werte (bis etwa 100) 
ebenfalls praktikabel, jedoch 
selten sinnvoll. Entsprechend 
sollte man auch die Screenhö- 
he in den Modi 1 und 2 immer 
mit 200, in den Modi 3 und 4 mit 
400 angeben. 

Die Tiefe schließlich ist ein 
Parameter, welcher angibt, wie 
viele verschiedene Farben auf 
einem Screen gleichzeitig ver- 
wendet werden können. Dies 


GRUNDLAGEN 


geht nach den in Tabelle 2 an- 
gegebenen Regeln. 

In den Modi 1 und 3 darf die 
Tiefe maximal 5 betragen, in 
den Modi 2 und 4 maximal 4. 

Jetzt sind Sie durchaus 
schon in der Lage, Ihren ersten 
eigenen Screen zu öffnen. Ge- 
ben Sie dazu im Direktmodus 
z.B. folgenden Befehl ein: 
SCREEN 1,640,200,2,2 

Und tatsächlich verschwin- 
den die Amiga-Basic-Fenster, 
und man sieht nur noch einen 
weißen Screen-Balken. Wir ha- 
ben nun einen Screen mit der 
Nummer 1 geöffnet, welcher im 
Modus 2 arbeitet, und mit einer 
Breite von 640 Pixtel und einer 
Höhe von 200 Pixtel arbeitet. 
Durch die verwendete Tiefe 2 
stellt der Screen insgesamt vier 
verschiedene Farben zur Verfü- 
gung, welche jetzt allerdings 
noch nicht alle zu sehen sind. 

Wenn Sie sich an dem eige- 
nen Screen sattgesehen ha- 
ben, werden Sie sicher zum 
Amiga-Basic zurückwollen. Da- 
für gibt es prinzipiell zwei Mög- 
lichkeiten. Entweder klickt man 
den Screen mit dem linken der 
beiden Gadgets in den Hinter- 
grund, oder man zieht ihn ein- 
fach nach unten. Dazu bewegt 
man den Mauszeiger auf den 
Balken und bewegt ihn dann 
bei gedrückter linker Maustaste 
nach unten. 


Grafik auf 
dem Amiga 


Dann muß nur noch das Ba- 
sic-Fenster angeklickt werden, 
und schon können Sie den Be- 
fehl geben, um den Screen zu 
schließen. Dieser lautet: 
SCREEN CLOSE Nummer% 

In unserem Fall also: 
»SCREEN CLOSE 1«. Damit ist 
der Screen wieder spurlos ver- 
schwunden. Auf die gleiche 
Weise können Sie jetzt auch 
noch die anderen Modi oder 
vielleicht auch verschiedene 
Screenbreiten ausprobieren. In 
den Interlace-Modi wird Ihnen 
dabei sicherlich das starke 
Flimmern an dem schmalen 
Screen-Balken auffallen. 


Die Parameter Tiefe% und Modi% des SCREEN-Befehls 


fe Anzahl Farben 


Modi 


Tabelle 2. Hier sehen Sie, wie viele Farben möglich sind 
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Die WINDOW-Befehle 

Wie gesagt, benötigt man zur 
‚Grafik- oder Textausgabe aufei- 
nem Screen immer ein Win- 
dow. Ein solches öffnet man mit 
Hilfe des Befehls: 

WINDOW Nummer%,Titel$, 
OH yIR)-2R,y2%)Iyp%, 
Screen% 

Genauso wie die einzelnen 
Screens bekommt auch jedes 
Window eine eigene Nummer, 
mit der es später wieder ange- 
sprochen werden kann. Die 
Nummer 1 Ist übrigens schon 
für das Amiga-Basic-Window 
reserviert, es stehen also die 
Nummern ab 2 zur Verfügung. 
»Titel$« ist der Name, den das 
Fenster erhalten soll. 

»X1%« und »y1%« sind die 
Koordinaten der linken oberen 
Ecke »x2%« und »y2%« die der 
rechten unteren Ecke des Win- 
dows. Gerechnet werden diese 
Koordinaten immer relativ zur 
linken oberen Ecke des betref- 
fenden Screens. Gibt man kei- 
ne Koordinaten an (stehen zwi- 
schen Titel und Typ also nur 
zwei Kommata), so erhält das 
Window maximale Größe. 

Dem Parameter »Typ%« 
kommt zentrale Bedeutung zu. 
Die Bedeutung der verschiede- 
nen Werte entnehmen Sie bitte 
Tabelle 3. Um die verschiede- 
nen Funktionen zu kombinie- 
ren, addiert man die entspre- 
chenden Werte. So erhält man 
z. B. für ein Window mit Ziehlei- 
ste sowie allen möglichen Gad- 
gets den Parameterwert 15 
(1+2+4+8). 

Mit dem Wert 16 sollten Sie 
vorsichtig umgehen, denn er 
verbraucht sehr viel Speicher- 
platz. Zu Problemen kann es 
besonders bei großen Windows 
oder solchen mit großen Gad- 
gets kommen. 

»Screen%« gibt an, auf wel- 
chem Screen das Window ge- 
öffnet werden soll. Hier ist die 
Nummer des gewünschten 
Screens anzugeben. Soll das 
Window am Workbench-Screen 
erscheinen, läßt man den Para-‘ 
meter einschließlich dem vor- 
hergehenden Komma weg. 

Wie Sie sicher aus Ihrer bis- 
herigen Arbeit mit dem Amiga 
wissen, kann immer nur ein 
Window aktiv sein. Die Titellei- 
sten aller anderen Windows 
(soweit diese über solche Lei- 
sten verfügen) sind dann gera- 
stert dargestellt. Alle Ein- und 
Ausgabe-Befehle wie »PRINT«, 
»INPUT« oder die im folgenden 
vorgestellten Grafikbefehle be- 
ziehen sich immer auf das ge- 
rade aktive Window. 

Jedes Window ist nach dem 
Öffnen so lange aktiv, bis ein 
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Der Parameter Typ% beim WINDOW-Befehl 


Wert Bedeutung 


Das Window besitzt ein Größengadget. 
Das Window besitzt eine Ziehleiste. 


Das Window besitzt ein Tiefengadget. 

Das Window besitzt ein Schließ-Gadget. 

Das Betriebssystem führt Window-Refreshes durch. 
Zwischenzeitlich verdeckte Windowinhalte werden 
automatisch wiederhergestellt. 


Tabelle 3. Der Window-Befehl ist sehr vielfältig 


neues eröffnet wird. Um die 
Ausgaben von PRINT oder an- 
deren Befehlen in ein beliebi- 
ges Window zu lenken, verwen- 
det man den Befehl: 
WINDOW OUTPUT Nummer% 
Wie Sie sich vielleicht schon 
denken können, lautet der Be- 
fehl zum Schließen eines Win- 


dows: 
WINDOW CLOSE Nummer% 

Nun ist es Zeit für ein um- 
fangreicheres Demonstrations- 
programm, welches Sie sich 
einmal genau durchsehen und 
nachvollziehen sollten. Auch 
können Sie ein bißchen mit den 
Parametern experimentieren. 
Die Farbmischung 

Im Moment erscheinen ja 
noch alle unsere Screens und 
Windows in der gleichen Farbe 
wie der Workbenchscreen. 
Doch das soll sich ändern. Da- 
zu allerdings wird noch etwas 


lich. Statt dessen werden für ei- 
ne Farbe noch drei Intensitäts- 
werte (für jede Grundfarbe ei- 
nen) gebraucht, Damit bestim- 
men Sie den Farbton. 

Der Amiga stellt jede der drei 
Grundfarben in 16 Intensitäts- 
stufen zur Verfügung, woraus 
sich letztendlich 16°=4096 ver- 
schiedene Farben ergeben. 
Dabei sind noch einige Beson- 
derheiten zu beachten. Haben 
alle drei Grundfarben den In- 
tensitätswert null, so erhalten 
Sie schwarz. Alle drei Grundfar- 
ben in maximaler Intensität er- 
geben weiß. Alle Mischungen, 
bei denen die Grundfarben mit 
der jeweils gleichen Intensität 
enthalten sind, ergeben Grau- 
stufen. 

Jetzt benötigen wir eigentlich 
nur noch einen passenden Ba- 
sic-Befehl, um die Farben- 
pracht ausprobieren zu kön- 


PRINT "Programn22: RESTORE-Deno” 


RESTORE Labe12 
FOR zaehlerf=1 10 3 
READ zahl! 
PRINT zahl! 
NEXT zaehlerf 
RESTORE Labell 
FOR zachlerf=1 10 3 
READ zahlt 
PRINT zahl! 
NEXT guehler$ 
Labell: 
DATA 1,1,1.2,1.3 
Label2: 
DATA 1.4,1.5,1.6 


Listing 12. WINDOW-Demo 


viele, ist durch den Tiefen- 
Parameter beim SCREEN-Be- 
fehl bestimmt worden. In diese 
Farbtöpfe werden mit dem PA- 
LETTE-Befehl beliebige Far- 
ben eingefüllt. 

Will man in einem Window 
Grafiken ausgeben, so nennt 
man die Nummer des Farbtop- 
fes, und der Amiga zeichnet in 
der entsprechenden Farbe. Da- 
bei ist allerdings immer die 
Quelle O für den Hintergrund 
und die Quelle 1 für die Fenster- 
rahmen bestimmend. 

Dies heißt, mit »PALETTE 
0,0,0,0« stellt man die Hinter- 
grundfarbe auf schwarz. Der 
Befehl bezieht sich übrigens 
immer auf den gerade aktiven 
Screen. In Listing 13 finden Sie 
ein Programm, mit dessen Hilfe 
Sie auf einfachste Weise die 
Farbmischung des Amiga aus- 
probieren können. Es werden 
ein neuer Screen und ein Fen- 
ster darauf geöffnet. 


PALETTE Quelle%, Rot%/ 
15, Gruen%/15, Blau%/15 

»Rot%«, »Gruen%« und 
»Blau%« sind die Ganzzahlwer- 
te, welche Sie sich vom Bild- 
schirm abgeschrieben haben. 
Abgesehen davon ist Listing 13 
auch ein sehr gutes Beispiel für 
die Anwendung verschachtel- 
ter IF-Konstruktionen. Die ferti- 
gen Parameter einiger oft ver- 
wendeter Farben finden Sie im 
‚Amiga-Basic-Handbuch auf Sei- 
te 9-176, 


Die Zeichen- 
befehle 


Einzelpunkte 

Nun können wir an die ei- 
gentlich Grafik-Programmie- 
rung gehen. Der einfachste Be- 
fehl zur Farbgrafikausgabe ist 
»PSET«. Er gibt einen einzelnen 
Punkt im momentan aktiven 
Window aus. Das Format ist: 


N 1,640,200,2,2 
2,,,0,1 
BE 0,1,1,0 


eingebe 


ELSEIF g3="9" 
IF blau< 


0070 eingabe 


L= 


Theorie über die Gesetze der 
Farbmischung notwendig. Je- 
der Farbfernseher oder Monitor 
arbeitet nach dem Prinzip der 
‚additiven Farbmischung. 
Hierbei wird die Tatsache ge- 
nutzt, daß sich alle vorstellba- 
ren Farben aus den drei Grund- 
farben Rot, Grün und Blau zu- 
sammenmischen lassen. Daher 
kommt auch die Bezeichnung 
RGB-Monitor, die Sie vielleicht 
schon einmal gehört haben. 
Aus diesem Grund hat der 
‚Amiga nicht eine eigene Num- 
mer für jede Farbe (wie das 
noch beim C64 der Fall war), 
denn das wäre bei 4096 Farben 
doch ausgesprochen unhand- 


nen. Leider haben es die Ami- 

ga-Basic-Entwickler dabei dem 

Programmierer unnötig schwer 
macht: 

PALETTE Quelle%,Rot!,Grünl, 

Blaul 

Wie Sie sehen, sind die In- 
tensitätswerte der drei Grund- 
farben als Float-Zahlen anzu- 
geben, und zwar mit einem 
Wert zwischen 0.00 und 0.10. 
Dies ist insofern unpraktisch, 
als die einzelnen Stufen (für 16 
verschiedene Werte) bei 1/15= 
0.067 (gerundet) liegen. 

Für den Parameter Quelle% 
kann man sich vorstellen, der 
Amiga hätte verschiedene 
Farbtöpfe zur Verfügung. Wie 
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Nun kann der Benutzer die 
Hintergrundfarbe über die Ta- 
statur verändern. Dabei erhö- 
hen die Tasten <7>, <8> 
und <9> die Intensitätswerte 
von Rot-, Grün- und Blauanteil, 
<4>, <5> und <6> vermin- 
dern sie. Der Startwert liegt bei 
schwarz. Außerdem werden 
ständig die Intensitätswerte der 
drei Grundfarben ausgegeben, 
allerdings als Ganzzahlen zwi- 
schen O und 15. 

Sollten Sie eine Farbe, die 
Ihnen gut gefallen hat, später 
wieder verwenden wollen, so 
notieren Sie sich diese drei 
Werte. Im Palette-Befehl geben 
Sie dann an: 


Listing 13. PALETTE-Demo 


PSET (x%,y%),Quelle% 

»x%« und »y%« sind die Ko- 
ordinaten des Punktes relativ 
zur linken oberen Ecke des 
Windows. Deshalb dürfen sie 
nicht größer sein als Breite und 
Höhe des Windows. »Quelle%« 
bezeichnet den »Farbtopf«, mit 
dessen Farbe der Punkt ge- 
zeichnet wird. Wie bereits ge- 
sagt, ist dabei 0 die Hinter- 
grundfarbe, ein eventuell vor- 
handener Punkt wird also ge- 
löscht. In Listing 14 finden Sie 
ein kurzes Demonstrationspro- 
gramm. 

Es werden ein Screen in 
niedriger Auflösung mit Tiefe- 
Parameter 5 (also 32 möglichen 
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PRINT "Program25: PSET-Deno” 
SCREEN 1,320,200,5,1 
WINDOW 2,,,0,1 
Quellef=0 70 31 
PALETTE Quellef,RND(1) ‚RND(1) 
NEXT. 
WHILE. INKEYS= 
x.koordinateg=INT(RND(1)*320) 
y.koordinstef=INT(RND(1)*200) 
E=INTERND(1) 3: 
(x.koorainateg,y. 


BSET 
WEND 

WINDOW 
SCREEN C] 


inate} 


Listing 14. PSET-Demo 


Farben) und ein Fenster darauf 
geöffnet. Dann werden die 
Farbquellen mit zufälligen Far- 
ben gefüllt, und bis zu einem 
Tastendruck Punkte mit zufälli- 
ger Farbe und Position gezeich- 
net. Das Ergebnis sehen Sie in 
Bild 4. 

Der Befehl »PSET« wird auch 
noch in einem erweiterten For- 
mat verwendet, welches lautet: 
PSET STEP (x%,y%),Quelle% 

Durch die Erweiterung 
»STEP« werden die Koordina- 
ten »x%« und »y%« relativ zum 
zuletzt gezeichneten Punkt 
(man nennt dessen Position 
den Grafik-Cursor, welcher al- 
lerdings nur imaginär ist) ge- 
rechnet. Dadurch werden auch 
negative Koordinaten erforder- 
lich, wenn ein Punkt oberhalb 
bzw. links vom Grafikcursor ge- 
zeichnet werden soll. 

Zu dem Befehl »PSET« exi- 
stiert auch eine entsprechende 
Funktion namens POINT(x%, 
y%). Ihr Übergabewert ist die 
Farbquelle des durch die Koor- 
dinaten »X%« und »y%« be- 
stimmten Punktes. Wurde an 
der Stelle noch kein Punkt ge- 
setzt, ist der Übergabewert 0 
(Hintergrundfarbe). Liegt der 
angegebene Punkt außerhalb 
des Windows, so liefert die 
Funktion den Wert -1. 

Linien und Rechtecke 

Das Setzen eines einzelnen 
Punktes ist der einfachste Gra- 
fikbefehl, wird aber eher selten 
verwendet. Wichtiger sind Be- 
fehle für geometrische Körper 
wie Linien, Rechtecke und Krei- 
se. Linien erhält man vom Be- 
fehl »LINE« im Format: 

LINE (x1%,y1%)-(x2%,y2%), 
Quelle% 

Der Computer zieht eine Li- 
nie zwischen den Punkten 
»X1%«, »ylY%« und »x2%«, 
»y2%«. Läßt man die ersten 
Punktkoordinaten weg (»LINE 
-(x2% y2%)‚Quelle%«), so wird 

ler Grafikcursor als weiterer 
unkt angenommen. Schließ- 
lich kann noch wahlweise vor 
jeder Klammer das Wort»STEP« 
stehen, um die in der Klammer 


angegebenen Koordinaten als 
relativ zum Grafikcursor zu 
kennzeichnen. Listing 15 gibt 
Linien aus, deren Position und 
Farbe zufällig bestimmt sind. 

Kleine Ergänzung - große 
Wirkung: Der LINE-Befehl ist 
auch verantwortlich für das 
Zeichnen von Rechtecken. Da- 
zu bedarf es lediglich der Er- 
gänzung »,B« hinter »Quelle%«. 
Dann interpretiert Amiga-Basic 
die beiden Koordinatenpaare 
als die gegenüberliegenden 
Eckpunkte eines Rechtecks 
und zeichnet dieses. Würde 
man danach noch einmal den 
gleichen LINE-Befehlohne»,B« 
eingeben, hätte man durch das 
Rechteck eine Diagonale ge- 
zeichnet. »B« steht für das eng- 
lische Wort Block (u. a. Recht- 
eck). 

Und noch ein zusätzliches 
Format bietet der LINE-Befehl. 
Ergänzt man Ihn nicht mit »,B« 
sondern mit »,BF«, so wird ein 
ausgefülltes Rechteck gezeich- 
net. Zum Ausprobieren können 
‚Sie gleich wieder Programm 26 
hernehmen, Sie müssen bloß 
den LINE-Befehl um »,B« oder 
»,BF« ergänzen. 


Kreise und Ellipsen mit 
CIRCLE 

Schließlich fehlt uns noch als 
geometrische Grundfigur der 
Kreis, englisch circle. »CIRC- 
LE« heißt auch der Befehl in 
‚Amiga-Basic. Das Format bietet 
einige interessante Parameter: 


GIRUNDLAGEN 


CIRCLE (x%,y%),Radius%, 
Quelle%,Startwinkel!, 
Endwinkell,Zerrung! 

Die Koordinaten geben na- 
türlich die Position des Kreis- 
mittelpunktes an, steht vor der 
Klammer das Wort STEP, so 
sind die Koordinaten als relativ 
zum Grafikcursor aufzufassen. 
»Radius%» ist der Radius des 
Kreises in Einzelpunkten. 
»Quelle%« bezeichnet wie im- 
mer die Farbquelle. 

Optionen für ganzbesondere 
‚Anwendungen sind »Start- und 
Endwinkell«. Läßt man diese 
Parameter weg (und den Platz 
zwischen den Kommata), so 
wird ein Vollkreis gezeichnet. 
Unter Angabe von »Start- und 
Endwinkell« beginnt der Kreis- 
bogen erst ab dem Startwinkel 


(pi) an, so erscheint nur der 
obere Halbkreis. 3.14152 und 
4.71228 (xxx pi) ergeben das lin- 
ke untere Viertel. 

Der letzte Parameter, »Zer- 
rungl«, ist sehr wichtig. Wie Sie 
sich leicht vorstellen können, 
sind die Bildpunkte nicht exakt 
quadratisch. Dies merken Siez. 
B., wenn Sie ein Rechteck mit 
gleicher Höhe und Breite zeich- 
nen lassen. Dieses ist dann 
meist alles andere als ein Qua- 
drat. 

Dies heißt, daß ein Kreis mit 
gleichem horizontalen und ver- 
tikalen Radius ebenfalls kein 
Kreis wird, sondern eine Ellip- 
se. Daher gibt es den Korrektur- 
faktor »Zerrungl«. Gibt man 
hierfür das Verhältnis Breite zu 
Höhe eines Bildpunktes an, so 


5235 


winkell+.92353 


iktor verändert” 


und Endwinkel” 


Listing 16. CIRCLE-Demo 


und endet schon am Endwin- 
kel. 

Der Winkel wird im Bogen- 
maß, zwischen O und 2+pi an- 
gegeben. Er beginnt nach ma- 
thematischer Konvention an 
der rechten Horizontalen und 
dreht im Gegenuhrzeigersinn. 
Gibt man hier z.B. 0 und 3.14152 


Listing 15. LINE-Demo 
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wird die Ellipse zum Kreis korri- 
giert. Konstant bleibt dabei der 
horizontale Radius. 

Bei einer Auflösung von 640 
x 200 Punkten beträgt dieses 
Verhältnis 2.25/1, also etwa bei 
0.44. Bei niedriger Auflösung 
von 320 x 200 ist es demnach 
die Hälfte, also ca. 0.22. Wählt 
man den Korrekturfaktor grö- 
Ber, so ergibt sich eine »stehen- 
de« Ellipse. Wählt man ihn klei- 
ner, so ergibt sich eine »liegen- 
de« Ellipse. 

Wieder einmal ist es Zeit für 
ein umfangreiches Beispielpro- 
gramm. Sie finden es in Listing 
16 (siehe auch Bild 5). 
Flächen ausmalen mit PAINT 

Vielleicht haben Sie im Ver- 
gleich zum LINE-Befehl bei 
»CIRCLE« einen Parameter ver- 
mißt, welcher den Kreis oder 
die Ellipse ausmalt.. Ein solcher 
Parameter wurde tatsächlich 
nicht implementiert, dafür gibt 
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es aber einen guten Ersatz. 
PAINT malt beliebige Flächen 
mit einer Farbe aus. Sein For- 


mat ist: 
PAINT (x%,y%),Quelle%, 
Umrandung% 

Die beiden Koordinaten be- 
zeichnen den Punkt, von dem 
aus mit dem Füllen begonnen 
werden soll, Der Zusatz»STEP« 
ist'auch hier optional. »Quel- 
Ie%« ist die Farbquelle für die 
Kerne mit der gefüllt werden 
soll. 

»Umrandung%« gibt die 
Farbquelle der Umrandung der 
auszufüllenden Fläche an. 
»PAINT« malt so lange aus, bis 
es an eine Grenze der Umran- 
dung stößt. Läßt man diesen 
Parameter mitsamt des vorher- 
gehenden Kommas weg, so 
wird Rahmenfarbe gleich Zei- 
chenfarbe angenommen. Pro- 
bieren Sie folgendes Beispiel 
aus: 


CIRCLE (320,100),80,1 
LINE (241,100)- 
(399,100),2 

PAINT (320,99) ,1,1 


Wie Sie sehen, wird der gan- 
ze Kreis ausgefüllt. Von der Li- 
nie quer durch den Kreis läßt 
sich die Ausfüllroutine nicht be- 
hindern, denn die Linie ist in 
Farbe 2 gezeichnet, während 
die Grenzfarbe für PAINT als 
Farbe 1 gesetzt wurde. 


Polygone mit AREA und 
AREAFILL 

Sehr interessant sind die bei- 
den Befehle »AREA« und 
»AREAFILL«. Sie dienen zum 
Zeichnen von ausgefüllten Po- 
Iygonzügen, das sind unregel- 
mäßige Vielecke. Hierbei defi- 
niert man die einzelnen Ecken 
des Polygons eine nach der an- 
deren mit dem Befehl: 

AREA (x%,y%) 

Natürlich gibt es auch wieder 
die relativen Koordinaten mit 
»STEP«, was hier besonders 
sinnvoll ist, Hat ein Polygon 
sehr viele Ecken, sollte man 
übrigens »READ« mit DATA-Zei- 
len verwenden, das ist weniger 
zeitaufwendig, 

Sind alle Punkte definiert, so 
‚gibt man die Anweisung: 
‚AREAFILL Modus% 

Nun werden die vorher defi- 
nierten Punkte der Reihe nach 
verbunden (auch der letzte mit 
dem ersten) und dieses Poly- 
gon wird dann ausgefüllt. Wie 
das Ausfüllen aussieht, be- 
stimmt der Parameter »Mo- 
dus%«. Ist er »0« oder fehlt er, 
so füllt sich das Polygon wie mit 
»PAINT« in der Farbe der Quel- 
le 1. 


Ist der Parameter allerdings 
»1«, so wird der bisherige Inhalt 
invertiert, Bei maximal vier Far- 
ben wird aus Farbe 0 Farbe 3, 
aus Farbe 1 Farbe 2 und umge- 
kehrt. Am besten sehen Sie 
sich das im Beispielprogramm 
(Listing 17) an. Sehr schön sieht 
man dort auch den Einsatz von 
SUB-Programmen. 
Grafikausschnitte mit GET 
und PUT 

Eine gänzlich andere Art von 
Grafikbefehlen stellen »GET« 
und »PUT« dar. »GET« überträgt 
einen rechteckigen Bildschirm- 
ausschnitt in eine Feldvariable, 
»PUT«gibt einen aufsolche Wei- 
se übertragenen Bildausschnitt 
wieder auf dem Bildschirm aus. 
Das Format von »GET« ist: 
GET (1%, y1%)-{X2%,y2%), 
Feldvariable& 

Die beiden Koordinatenpaa- 
re definieren linke obere und 
rechte untere Ecke des zu über- 
tragenden Bildausschnittes. 
Die Feldvariable kann eine nu- 
merische Variable beliebiger 
Genauigkeit sein, es empfiehlt 
sich aber der Typ Long-Integer. 
Denn dann können Sie auf ein- 
fache Weise berechnen, wie 
groß die Feldvariable dimensio- 
niert werden muß. Dazu dient 
die folgende Formel: 
Dimension=INT((6+(y2%- 
y1%+1)+2-INT(x2%-x1% +16) 
/16)+Tiefe%)/4)+1 

Die Tiefe ist hierbei die An- 
zahl der Bildebenen, wie sie 
beim SCREEN-Befehl angege- 
ben wurde. Den Wert, der sich 
aus der Formel ergibt, gibt man 
dann also im DIM-Befehl für die 
Feldvariable an, um nicht zu 
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Listing 17. AREA-AREAFILL-Demo 


Fe er 


wenig aber auch nicht zu viel 
Speicherplatz zu reservieren. 
Der PUT-Befehl zur Ausgabe 
der gespeicherten Grafik lautet: 
PUT (x%,y%),Feldvariable&, 
Modus 

Die Koordinaten bezeichnen 
die linke obere Ecke des 
Screens, ab welcher der recht- 
eckige Auschnitt auf den Bild- 
schirm ausgegeben werden 
soll. Die angegebene Feldva- 
riable muß natürlich die gleiche 
wie beim GET-Befehl sein. 
»Modus$« kann insgesamt fünf 
verschiedene Werte anneh- 
men, deren Beschreibung Sie 
in Tabelle 4 finden. 

Am interessantesten dürften 
dabei der erste und der letzte 
Modus sein. »PSET« ist natür- 
lich der einfachste, da der Aus- 
schnitt 1:1 übertragen wird. Das 
Besondere an »XOR« dagegen 


sieht man nicht auf den ersten 
Blick. Diese besondere Ver- 
knüpfungsart macht es mög- 
lich, die Ausgabe eines Bild- 
ausschnittes wieder rückgän- 
gig zu machen, ohne daß die 
vorher vorhandene Grafik ver- 
ändert wurde. 

Am besten sehen Sie sich 
jetzt »Programm29« in Listing 
18 genau an und starten es auf 
ihrem Computer, dann werden 
Ihnen die verschiedenen Ver- 
knüpfungsarten so anschaulich 
vorgeführt wie in Bild 6. 


Einfache Animation mit 
SCROLL 

Vielleicht ist Ihnen ja schon 
die Idee gekommen, daß mit 
Hilfe von »GET« und »PUT« Ani- 
mationen, d.h. bewegte Bilder 
verwirklicht werden könnten. 
Dazu müßte man nur sehr 
schnell hintereinander einen 
Bildausschnitt ausgeben, wie- 
der löschen, ein kleines Stück 
daneben wieder ausgeben, Iö- 
schen und so weiter. Tatsäch- 
lich ist dies durchaus möglich, 
jedoch gibt es da einen Befehl, 
der uns viel Arbeit abnimmt. Er 
heißt »SCROLL« und wird ver- 
wendet im Format: 

SCROLL (x1%,y1%)-(x2%, 
y2%),deltax%,deltay% 

Der Befehl arbeitet folgen- 
dermaßen; Der durch die bei- 
den Koordinatenpaare bezeich- 
nete Ausschnitt wird in einem 
Puffer abgelegt, und das ent- 
sprechende Rechteck auf dem 
Bildschirm gelöscht. Danach 
addiert der Computer zu den 
Koordinaten der linken oberen 
Ecke die Werte »deltax%« bzw. 
»deltay%«, und gibt den Aus- 
schnitt dort im Modus »PSET« 
aus. 

Um aus dieser einmaligen 
Verschiebung nun eine Anima- 
tion zu machen, benötigt es le- 
diglich einer FOR-NEXT-Schlei- 


r Parameter Modus% beim PUT-Befehl 


Der Ausschnitt erscheint am Bildschirm wieder 
exakt genauso, wie er herausgenommen wurde, 
Der Ausschnitt erscheint am Bildschirm wieder 
exakt genauso, wie er herausgenommen wurde, 


Es werden aus dem Ausschnitt nur dann Punkte 
auf den Bildschirm übertragen, wenn dort bereits 


Der Ausschnitt wird mit der bereits vorhandenen 
Grafik überlagert. Gleiche Farben bleiben dabei 
gleich, verschiedene Farben ergeben eine andere 


Es werden in der bereits vorhandenen Grafik 


PSET 
PRESET 
nur daß die Farben invertiert werden. 
AND 
welche mit einer Farbe ungleich der 
Hintergrundfarbe existieren. 
OR 
neue Farbe. 
XOR 
dort die Bildpunkte invertiert, wo in dem 
Ausschnitt Punkte gesetzt sind. 


Tabelle 4. Mit »PUT« macht Grafik Spaß 
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fe. Damit läßt man eine Variable 
beispielsweise von null bis 200 
laufen. Bei jedem Schleifen- 
durchlauf wird genau ein 
SCROLL-Befehl ausgeführt. 

Dieser verschiebt nun einen 
‚Ausschnitt um eins nach rechts 
und eins nach unten. Da ja 
beim nächsten SCROLL-Be- 
fehl der zu verschiebende Aus- 
schnitt bereits von den ur- 
sprünglichen Koordinaten weg- 
gerückt is, muß man die 
Schleifenzähler nur noch zu 
den Koordinaten addieren. 

Konkret sieht das beispiels- 
weise so aus wie In Pro- 
gramm30: 


PRINT "Programm30” 

FOR delta%=0 TO 400 
STEP 2 
SCROLL(O+delta®,0+ 
delta%/2)-(80+deltaf,8+ 
delta#/2) ‚2,1 

NEXT delta% 


‚Auf diese Weise läßt sich, wie 
Sie sehen, eine einfache Lauf- 
schrift verwirklichen. Dabei ist 
zu beachten, daß bei kleinster 
Schrittweite (also eins) das 
Scrolling sehr lange dauert, bei 
größeren Werten der gescrollte 
Ausschnitt aber immer stärker 
flackert. Wegen dieses Flak- 
kerns sollte man auch den Aus- 
schnitt möglichst klein wählen, 


Pull-Down- 
Menüs 


Wie Sie später sehen wer- 
den, unterstützt Amiga-Basic 
Animationen noch auf eine an- 
dere Weise, wesentlich komfor- 
tabler und schneller. Doch be- 
vor wir diese sog. BOBs behan- 
deln sind erst noch einige ande- 
re Kenntnisse vonnöten. Daher 
wenden wir uns erst noch einer 
ganz anderen Spezialität des 
‚Amiga zu. 

Fast alle Amiga-Programme 
bieten sog. Pull-Down-Menüs, 
aus denen der Benutzer be- 
quem die gewünschte Funktion 
wählen kann. So z.B. auch Ami- 
ga-Basic, Aufgerufen werden 
solche Menüpunkte ja bekannt- 
lich mit Hilfe der rechten Maus- 
taste. 

Nun stellt Amiga-Basic dem 
Programmierer auch einige Be- 
fehle zur Verfügung, mit denen 
er solche Pull-Down-Menüs in 
eigene Programme einzubau- 
en vermag, Diese Befehle pro- 
biert man übrigens zunächst 
am besten im Direktmodus aus, 
dann kann man besser an den 
Menüs herumbasteln. 

Der Befehl zum Aufbau eines 
Menüs lautet: 


GRUNDLAGEN 


Der Parameter Status% beim MENU-Befehl 


Der Menüpunkt kann nicht angewählt werden und 
erscheint gerastert. 


Der Menüpunkt kann normal angewählt werden. 
Der Menüpunkt kann angewählt werden, ist aber 


durch ein Häkchen gekennzeichnet. 


Tabelle 5. Hiermit haben Sie Menüs im Griff 


MENU 
MenüNummer%, 
PunktNummer%, 
Status%, 
Name$ 

Die einzelnen Menüs, deren 
Namen auf der Menüleiste 
oben am Screen genannt wer- 
den, erhalten der Reihe nach 
Nummern zwischen 1 und 10 


0,100) ‚80,3 
0,100) „40,2 
20,100) ,2,2 

410,100) ,3 


cost 


PRI 


NEXT dummy 
o1s 

FOR 14«1 TO 20 
STRINGS(80, ”*") 


Listing 18. GET-PUT-Demo 


(Menünummer%), wobei das 
Menü ganz links die Nummer 1 
trägt. Ebenso sind die einzel- 
nen Menüpunkte durchnume- 
riert, und zwar von 1 bis 19. 
Die Punktnummer 0 bezieht 
sich auf den Titel des Menüs, 
Mit »MenüNummer%« und 


»PunktNummer%« hat man al- 
so eine Art Koordinatensystem, 


INT "Progrann31. 
MENU 1,1,1, "Neues Programm 


g der Angie Basic-Nenüs” 


HENU 4,2,1,"Aktiviere Ausgabe-Fenster” 


Top Listing 19. Eindeutschung von Amiga-Basic 
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um einzelne Menüpunkte oder 
-titel anzuwählen, auf die sich 
der MENU-Befehl beziehen 
soll. 

»Status%« kann drei ver- 
schiedene Werte annehmen, 
welche Sie in Tabelle 5 finden. 

Um Status 2 verwenden zu 
können, muß man im Namen 
des entsprechenden Menü- 
punktes am Anfang drei Leer- 
zeichen lassen. Ist die Punkt- 
nummer im MENU-Befehl 
gleich 0, so bezieht sich der Sta- 
tus auf das gesamte Menü. 

Geben Sie jetzt einmal im Di- 
rektmodus folgende Befehle 
ein: 


MENU 1,0,1, 
"Menü Nummer 1” 
MENU 1,1,1, 
"Menüpunkt .1” 
MENU 1,2,0, 
"Menüpunkt 2” 
MENU 1,3,2, 

” Menüpunkt 3” 


Nun können Sie sich bei ge- 
drückter rechter Maustaste das 
selbstgebaute Menü ansehen. 
Es erscheint anstatt des bishe- 
rigen Amiga-Basio-Menüs »Pro- 
ject«, welches vorübergehend 
verschwunden ist. Nun können 
Sie z.B. den Menüpunkt 2 im 
nachhinein aktivieren: 

MENU 1,2,1 

Hätten Sie sich die Menüpro- 
grammierung so einfach vorge- 
stellt? Tatsächlich ist MENU 
wieder mal ein kleiner Befehl 
mit großer Wirkung, wie es de- 
ren viele in Amiga-Basic gibt. 
Doch wo ist jetzt das Project- 
Menü? Unser selbstgebautes 
Menü ist zwar ganz schön, je- 
doch Im Moment noch zu nichts 
nützlich. Der Befehl MENU RE- 
SET, welcher ohne Argumente 
eingegeben wird, stellt den al- 
ten Zustand wieder her, egal 
wie viele Menüs geändert wur- 
den. 

Übrigens ist es sehr wichtig, 
zu wissen, daß ein Amiga-Ba- 
sic-Menü erst durch ein eige- 
nes ersetzt wird, wenn man den 
Menütitel ändert. Beziehen 
sich die MENU-Befehle ledig- 
lich auf die einzelnen Menü- 
punkte, so bleibt das Menü in 
seiner Funktion erhalten. Damit 
ist es z.B. möglich, einige 
Amiga-Basic-Menüs einzu- 
deutschen. 

Dies erledigt Programms1, 
welches Sie in Listing 19 finden. 
Leider gibt es bei denjenigen 
Menüpunkten Probleme, wel- 
che den Shortcut anzeigen, da- 
her bleiben diese Punkte eng- 
lisch. Der Befehl »STOP« zur 
Unterbrechung des Pro- 
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gramms ist deshalb nötig, da 
bei einer normalen Beendi- 
gung eines Programms Amiga- 
Basic automatisch einen MENU- 
RESET durchführt. Dies wird 
mit »STOP« unterbunden, 

Um nun Innerhalb eines Pro- 
gramms Menüabfragen durch- 
führen zu können, muß das Me- 
nü mit dem Befehl »MENU ON« 
eingeschaltet werden. Nach 
diesem Befehl überprüft der 
Computer ständig, ob ein Me- 
nüpunkt angewählt wurde, 

In Verbindung mit »MENU 
ON« benötigt man noch den 
Befehl: 

ON MENU GOSUB Label 

Er wird grundsätzlich vor 
dem Einschalten des Menüs 
durch »MENU ON« gegeben. 
Die Wirkung ist, daß bei Anwahl 
eines Menüpunktes der Inter- 
preter eine Unterroutine an- 
springt, welche mit dem ange- 
gebenen Labelgekennzeichnet 


»Menü« - eine 
feine Sache 


ist. Der Sprung erfolgt unab- 
hängig davon, wo im Programm 
sich der Interpreter gerade 
befindet. An die Stelle, von 
der aus gesprungen wurde, 
kehrt der Interpreter nach dem 
Befehl »RETURN« wieder zu- 
rück. 

Als Beispiel soll Programm32 
in Listing 20 dienen. Hier wird 
ein kleines Menü aufgebaut 
und aktiviert. Wählt man wäh- 
rend der Ausführung - der 
Schleife einen Menüpunkt an, 
so erscheint eine entsprechen- 
de Meldung. 

Neben »MENU ON« gibt es 
noch die beiden Befehle: 
MENU OFF 
MENU STOP 

»MENU Off« schaltet das Me- 
nü wieder aus, so daß bei der 
Anwahl keine Verzweigung zur 
Unterroutine mehr erfolgt. »ME- 
NU STOP« tut ähnliches, je- 
doch merkt sich der Computer 
die Menüaufrufe in einem Puf- 
fer. Schaltet man später mit 
»MENU ON« wieder ein, so 
erfolgen im nachhinein die 
Sprünge in die Unterroutinen. 

Im Moment können wir aber 
nur feststellen, daß ein Menü- 
punkt angewählt wurde, nicht 
aber, um welchen Punkt es sich 
dabei handelte. Dazu dient die 
Funktion: 

MENU(Parameter%) 

Der Parameter kann nur die 
Werte null oder eins anneh- 
men. Abhängig davon übergibt 
er die Nummer des angewähl- 
ten Menüs (null) oder die des 
angewählten Punktes im Menü 


(eins). So erhält man praktisch 
die Koordinaten, welche man 
beim MENU-Befehl angegeben 
hat. 

Nun können wir das Pro- 
gramm32 dahingehend erwei- 
tern, daß der Name des ange- 
wählten Menüpunktes ausge- 
geben wird, Zudem wird das 
Häkchen vor Menüpunkt 3 bei 
jedem Aufruf aus- oder einge- 
schaltet. Den Umweg über die 
Variablen »menuenum%« und 
»menuepunkt%« muß man in 
Programm33 (Listing21) übri- 
gens unbedingt machen. Die 
Funktion »MENU(0)« kann 
nämlich immer nur ein einziges 
Mal aufgerufen werden, da- 
nach werden nicht mehr die ge- 
wünschten Werte übergeben. 
Die Abfrage der linken Maus- 
taste 

Genauso, wie man mit Hilfe 
der rechten Maustaste (beim 
Menüaufruf) eine Unterroutine 
aufrufen kann, geht dies auch 
mit der linken Maustaste. Die 
Befehle dazu lauten: 

ON MOUSE GOSUB Label 
MOUSE ON 

MOUSE OFF 

MOUSE STOP 

MOUSE (Parameter%) 

Wurde die Mausüberprüfung 
durch »MOUSE ON« einge- 
schaltet, so springt der Interpre- 
ter zu dem bei »ON MOUSE 
GOSUB« angegebenen Label, 
sobald die linke Maustaste ge- 
drückt wurde. »MOUSE(0)« lie- 
fert einen negativen Rückgabe- 
wert, wenn die Maustaste noch 
gedrückt ist, und einen positi- 
ven Wert oder null, wenn die Ta- 
ste nicht gedrückt ist. 

»MOUSE(t)« und »MOUSE 
(2)« liefern die horizontale und 
vertikale Koordinate des Maus- 
zeigers innerhalb des aktiven 
Fensters. Die MOUSE-Funktion 
kennt noch andere Parameter 
und Rückgabewerte, jedoch 
sind diese weniger wichtig und 
können bei Bedarf im Hand- 
buch nachgeschlagen werden. 

Ausgerüstet mit den MOU- 
SE-Befehlen bzw. der MOUSE- 


rogrann33: MENU-Deno” 


(2) 


1 wurde anı 
ND menuep. 
wurde angen 


1 AND menuepunktfiei THEN 


THEN 


Listing 21. MENU-Demo 2 


rogrann34: MOUSE-Demo” 
GOSUB maus 


Listing 22. MOUSE-Demo 


Funktion wurde Programm34 
(Listing 22) geschrieben, wel- 
ches ein einfaches Malpro- 
gramm darstellt. Solange die 
linke Maustaste gedrückt 
bleibt, werden Punkte an der 
aktuellen Position des Mauszei- 
gers gezeichnet. 

Wie Sie beim Ausprobieren 
dieses Programms aber zwei- 
fellos feststellen werden, ist es 
nur schwer möglich, eine 
durchgezogene Linie zu zeich- 
nen. Denn die Maus bewegt 
sich schneller, als die Schleife 
mit dem PSET-Befehl durch- 


MENU 1,1,1, 
MENU 1,2,0, 


Listing 20. MENU-Demo 1 
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laufen wird. Daher erscheinen 
meist nur Einzelpunkte, deren 
Abstand von der Mausge- 
schwindigkeit abhängt. 

Doch dem kann man abhel- 
fen. Um wirklich durchgezoge- 
ne Linien zu erhalten, ersetzt 
man den PSET-Befehl durch: 


LINE -(MOUSE(1), 
MOUSE(2)) 


Dadurch werden die einzel- 
nen Positionen verbunden, wo- 
durch das Problem der Einzel- 
punkte gelöst Ist. Dies hat zwar 
den Nachteil, daß man keine 
einzelnen Punkte mehr zeich- 
nen kann (es werden ja immer 
Verbindungen zum letzten 
Punkt gezeichnet), aber in ei- 
nem so kurzen Programm muß 
man einmal Kompromiß-Lösun- 
gen akzeptieren. 

Die Abfrage der Stop-Tasten 

Von der Sorte »ON ... GO- 
SUB Label« gibt es noch einige 
andere Befehle unter 
Amiga-Basic. Da wären zu- 
nächst einmal: 

ON BREAK GOSUB Label 
BREAK ON 

BREAK OFF 

BREAK STOP 


AMIGA-SONDERHEFT 10 


Ist die Abfrage aktiviert, so 
verzweigt der Interpreter in die 
Unterroutine ab Label, wenn 
man ein Basic-Programm an- 
zuhalten versucht (sei es mit 
dem Menüpunkt Stop oder dem 
entsprechenden Shortcut). So- 
mit kann ein Programm auf Un- 
terbrechungsversuche des Be- 
nutzers reagieren. Doch Vor- 
sicht ist geboten. Nach»BREAK 
ON« ist es nicht mehr möglich, 
ein Programm regulär zu been- 
den, Falls überhaupt, hilft nur 
noch ein Anklicken des Schließ- 
symbols der Output-Fensters. 


Die Fehlerverarbeitung 
ON ERROR GOTO Label 

Dieser Befehl unterscheidet 
sich in gewisser Weise von den 
anderen seiner Art. Zunächst 
einmal gibt es keine zusätzli- 
chen ‚Aktivierungs-Befehle. 
»ON ERROR GOTO« aktiviert 
automatisch das Abfangen von 
Programmfehlern. Sollte ein 
solcher auftreten, so gibt der In- 
terpreter dann keine Fehlermel- 
dung aus, sondern er springt 
(mittels GOTO!) zu dem ange- 
gebenen Label. 

Dort läßt sich dann feststel- 
len, welcher Fehler aufgetreten 
ist. Die Variable »ERR« enthält 
die Nummer des Fehlers. Die 
einzelnen Fehlernummern sind 
im Anhang B des Amiga-Basic- 
Handbuches aufgeführt. »ERR« 
ist eine sog. Systemvariable. 
Sie kann vom Programm nicht 
verändert werden, und steht im- 
mer zur Verfügung. So eine Art 
Funktion ohne Parameter. 

Obwohl der Sprung zum La- 
bel vom Typ GOTO ist, also prin- 
zipiell keine Rückkehrmöglich- 
keit bietet, existiert extra für sol- 
che Fehlerbehandlungsrouti- 
nen ein besonderer Rück- 
sprung-Befehl zur Verfügung. 
Er wird in drei verschiedenen 
Formaten verwendet: 
RESUME 
RESUME NEXT 
RRESUME Label 

»RESUME« ohne Argument 
läßt das Programm bei dem Be- 
fehl fortfahren, welcher den 
Fehler verursacht hat. 

Bei »RESUME NEXT« springt 
der Interpreter auf den Befehl, 
welcher auf den fehlerverursa- 
‚chenden Befehl folgt. 

Nach »RESUME Label« wird 
das Programm an einer beliebi- 
gen mit dem angegebenen La- 
bel bezeichneten Stelle fortfüh- 
ren. 

Um das Abfangen von Feh- 
lern wieder auszuschalten, gibt 
man den Befehl »ON ERROR 
GOTO 0«. Nun führen Fehler 
wieder ganz normal zu einer 


Meldung und Programmab- 
bruch. 

Um künstlich Fehler zu er- 
zeugen oder absichtlich eine 
Fehlerbehandlungsroutine auf- 
zurufen, benützt man den Be- 
fehl: 

ERROR Nummer% 

Er simuliert einen Fehler mit 
der angegebenen Nummer. So 
ergibt z.B. ERROR 2« einen 


Springen 
mit GOSUB 


Syntax Error. Ist »ON ERROR 
GOTO« eingeschaltet, springt 
der Interpreter zur Fehlerbe- 
handlungsroutine. 
Der Timer als Unterbre- 
chungsereignis 

Alle bisherigen Unterbre- 
chungs-Anweisungen reagier- 
ten auf bestimmte unregelmä- 
Big auftretende Ereignisse. 
Nicht so die nächste Befehls- 
gruppe: 
ON TIMER(Sekunden&) 
GOSUB Label 


GARUNDLAGEN 


Übrigens stellt ‚Amiga-Basic 

in Systemvariablen die offizielle 
Systemzeit zur Verfügung. Dies 
istbei einer eingebauten gepuf- 
ferten Uhr die echte Tageszeit, 
ansonsten die seit dem letzten 
Systemstart verstrichene Zeit. 
TIMES liefert die Systemzeit im 
Format ”HH:MM:SS” 
TIMER liefert die Zeit seit Mit- 
ternacht oder Systemstart in 
Sekunden, also HH+3600+ 
MM»60+SS. 

»DATE$« liefert das Datum 
der Systemuhr im Format 
"TT.MM.JJJJ” 

Dabei sollten Sie beachten, 
daß beim Systemstart die Uhr 
und der Kalender eventuell auf 
den in den Preferences einge- 
stellten Wert gesetzt werden. 
Um wirklich die reine Laufzeit 
des Computers zu erhalten, 
sollten Sie also entsprechend 
die Voreinstellung mit dem Pro- 
gramm Preferences verändern. 

Im Zusammenhang mit Unter- 
brechungs-Verarbeitung wich- 
tig ist der Befehl SLEEP.Erwird 
ohne Argumente verwendet 


Listing 23. Eine Sprungleiste 


TIMER ON 
TIMER OFF 
TIMER STOP 

Nach der üblichen Aktivie- 
rung der Unterbrechungs-An- 
weisung springt der Interpreter 
regelmäßig zu einer Unterrouti- 
ne ab dem angegebenen La- 
bel, Der zeitliche Abstand zwi- 
schen zwei solchen Unterbre- 
chungen beträgt die angegebe- 
ne Zahl von Sekunden. Diese 
kann zwischen 1 und 86400 
(entspricht 24 Stunden) liegen, 

Springt der Interpreter zu ei- 
ner von »ON TIMER« verur- 
sachten Unterroutine, so führt 
er die Anweisung »TIMER 
STOP« automatisch aus, damit 
sich die Routine nicht selbst 
aufrufen kann. Man sollte also 
auf jeden Fall die Zeit zwischen 
zwei Unterbrechungen so groß- 
zügig bemessen, daß sich hier 
keine Überschneidungen erge- 
ben. 
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und hält die Programmausfüh- 
rung so lange an, bis ein Unter- 
brechungsereignis erfolgt. 
Sprungleisten mit 
ON...GOTO/GOSUB 

Zum Abschluß gibt es dann 
noch die folgenden beiden Be- 
fehle: 

ON Wert% GOTO Labelt, 
Label2,Label3... 

ON Wert% GOSUB Labell, 
Label2,Label3... 

»Wert%« ist dabei ein nume- 
rischer Wert zwischen 1 und 
255. Float-Werte sind prinzipiell 
auch möglich, sie werden ge- 
rundet. Abhängig von »Wert%« 
springt der Interpreter zu einem 
der angegebenen Label. Ist 
»Wert%« gleich »1«, so springt 
er zu Labelt, ist »Wert%« gleich 
»2«, springt er zu Label2 usw.. 
Es müssen also mindestens so 
viele Label angegeben sein, 
wie der höchste Betrag von 
»Wert%«. Solche Konstruktio- 


nen nennt man auch Sprunglei- 
sten. 

Die beiden oben genannten 
Formate unterscheiden sich le- 
diglich durch die Art des 
Sprungs, wobei die Regeln des 
normalen GOTO oder GOSUB 
gelten. In Listing 23 finden Sie 
ein kleines Beispiel. 

Nun wird es Zeit, daß wir uns 
um die Arbeit mit Disketten 
kümmern. Denn die Diskette Ist 
ja das wichtigste externe Spei- 
chermedium des Amiga. Auf 
Disketten speichern wir ja 
schon die ganze Zelt unsere 
Programme ab, und können sie 
auch später wieder laden. 

Diese beiden Funktionen 
kennen Sie ja bereits vom Ami- 
ga-Basic-Edito, laden und 
speichern. Dafür verwendet 
man normalerweise die ent- 
sprechenden Menüpunkte, je- 
doch gibt es für das Speichern 
von Programmen noch eine 
wichtige Option, welche bei der 
Verwendung des Menüs nicht 
einsetzbar ist. 
Diskettenbefehle 

‚Amiga-Basic erkennt bei.der 
Eingabe sofort die eigenen Be- 
fehle und Funktionen (bemerk- 
bar daran, daß sie automatisch 
in Großschrift gesetzt werden). 
Und um Speicherplatz zu spa- 
ren, speichert der Interpreter 
die Befehle und Funktionen 
nicht unter ihrem ganzen lan- 
gen Namen (ein Befehl wie 
RANDOMIZE würde dann ja 
mindestens 9 Byte belegen). 

Statt dessen erhält jeder Be- 
fehl und Funktion eine Num- 
mer, unter der sie abgespei- 
chert wird. Eine solche Num- 
mer nennt man in diesem Fall 
ein Token. Dadurch wird, wie 
gesagt, der Speicherbedarf er- 
heblich gesenkt. Allerdings ver- 
steht dadurch auch ausschließ- 
lich Amiga-Basic den gespei- 
cherten Programmtext. 

Deshalb gibt folgende Be- 
fehlsform: 

SAVE Name$,A 

Dieser normalerweise nur im 
Direktmodus verwendete Be- 
fehl speichert das Listing als 
ASCII-Text ab, ohne Verwen- 
dung von Token, Dadurch ist es 
möglich, diesen Programmtext 
auch mit einem Editor oder ei- 
ner Textverarbeitung weiterzu- 
verarbeiten. 

Oft passiert es, daß man ein 
Programm laden möchte und 
seinen Namen vergessen’hat. 
Da Amiga-Basic keinen File- 
Requester zur Verfügung stellt, 
muß man sich auf andere Wei- 
se Aufschluß über den Inhalt ei- 
ner Diskette beschaffen. Dazu 
dient der Befehl: 

FILES Kennung 
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Die Kennung$-String ent- 
spricht den üblichen Verein- 
barungen von Amiga-DOS. 
»DFO:« ist das erste eingebaute 
Laufwerk, »DFi:« das zweite 
(meist externe) Laufwerk, 
»RAM:« die RAM-Disk. Auch 
kann der Name einer bestimm- 
ten Diskette als Laufwerksbe- 
zeichnung dienen, 

Möchte man den Inhalt eines 
bestimmten Uhnterverzeichnis- 
ses (auf der Workbench als 
Schublade gekennzeichnet) 
auslesen, so folgtohne Leerzei- 
chen auf die Laufwerksbezeich- 
nung der Name des Unterver- 
zeichnisses. 

Verwendet man den Befehl 
FILES ohne ein Argument, so 
wird der Inhalt des aktuellen 
Verzeichnisses ausgegeben. 
Normalerweise ist dies das Ver- 
zeichnis, aus dem Amiga-Basic 
geladen wurde. Es kann aller- 
dings auch mit dem folgenden 
Befehl geändert werden: 
CHDIR Kennung$ 

Die Kennung entspricht wie- 
der Amiga-DOS, 

Oft sind alte Programme 
oder Dateien nicht mehr er- 
wünscht und sollen gelöscht 
werden. Dann kann dies auch 
unter Amiga-Basic mit dem Be- 
fehl getan werden: 

KILL Dateiangabe$ 

Wenn sich die zu löschende 
Datei nicht im aktuellen Ver- 
zeichnis befindet, muß die Da- 
teiangabe Verzeichniskennung 
und Dateinamen enthalten, an- 
sonsten reicht der Dateiname. 

Auch Umbenennungen von 
Dateien sind mit einem Amiga- 
Basic-Befehl möglich: 


NAME AlteDateiangabe$ AS 
NeueDateiangabe$ 

Auch diese Dateiangaben 
entsprechen wieder dem Stan- 
dard, welche in dem Amiga- 
DOS-Handbuch ab Seite 1-3 
ausführlich erklärt sind. 

Haben Sie sich schon einmal 
gefragt, ob man nicht zwei 
Basio-Programme zusammen- 
fügen kann? Mit der normalen 
Lade-Routine ist dies nicht 
möglich, lädt man ein neues 
Programm, wird das alte auto- 
matisch gelöscht, Es gibt dafür 
aber einen eigenen Befehl: 
MERGE Dateiangabe$ 

Der Befehl fügt das angege- 
bene Programm, welches als 
ASCII-Text (mit SAVE ...,A) vor- 
liegen muß, in das aktuelle Pro- 
gramm an der Cursorposition 
ein. Eventuell kann man diesen 
Befehl auch innerhalb eines 
laufenden Programms geben, 
aber nach dem Laden kehrt 
‚Amiga-Basic immer in den Di- 
rektmodus zurück. 


Doch nun wollen wir uns den 
sequentiellen Dateien zuwen- 
den. Sequentielle Dateien sind 
Dateien auf einer Diskette, in 
die man nacheinander beliebi- 
ge Daten hineinschreiben 
kann. Später kann man diese 
Daten dann wieder in der glei- 
chen Reihenfolge auslesen. 
Öffnen und Schließen einer 
Datei 

Dabei gibt es drei verschie- 
dene Arten, eine solche Datei 
zu »eröffnen«. Da wäre zu- 
nächst einmal die einfache 
Ausgabedatei (Ausgabe = out- 
put), in welche die Daten ein- 
fach nacheinander hineinge- 
schrieben werden, aus der man 
aber nicht lesen kann. 


Sequentielle 
Dateien 


Entsprechend kann man ei- 
ne bereits bestehende Datei als 
Eingabedatei (Eingabe = in- 
put) öffnen. Dann kann man die 
Daten zwar nacheinander aus- 
lesen, aber nichts an der Datei 
selbst ändern. 

Um eine bereits bestehende 
Datei zu ergänzen, öffnet man 
sie als Ausgabedatei zum Anfü- 
gen (anfügen = append). Auch 
hier ist kein Lesen möglich. 

Seltsamerweise gibt es für 
das Eröffnen einer Datei zwei 
verschiedene, aber gleichbe- 
rechtigte Formate des Befehls 
OPEN: 

OPEN Dateiangabe$ FOR 
Modusi AS #Dateinummer% 
OPEN Modus2$, # Datei- 
nummer,Dateiangabe$ 

Die Parameter »Modus1« und 
»Modus2$« können verschiede- 
ne Werte annehmen, die sich 
dann entsprechen. Sie finden 
diese Werte in Tabelle 6. 

Die Dateiangabe enthält ne- 
ben der üblichen Laufwerks- 
kennzeichnung auch den Na- 
men der zu eröffnenden Datei. 
Diese Datei erhält dann für die 
weitere Behandlung innerhalb 
eines Programms eine beliebi- 
ge Nummer zwischen 1 und 
255 zugewiesen. 

Die folgenden beiden Befeh- 
le bewirken das gleiche, näm- 
lich die Eröffnung einer neuen 
Datei für Ausgabe unter dem 
Namen »MeineDatei« im ak- 
tuellen Verzeichnis. 

OPEN "MeineDatei” FOR 
OUTPUT AS #1 
OPEN 0, #1, "MeineDatei” 

Eröffnet man eine Datei zur 
Eingabe oder zum Anfügen, 
welche noch nicht existiert, so 
führt das zu einer Fehlermel- 
dung. 
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Selbstverständlich gibt es 
auch einen Befehl zum Schlie- 
Ben einer Datei, egal welcher 
Art diese Datei war: 

CLOSE #Dateinummer%, 
#Dateinummer%... 

Dieser Befehl schließt alle 
Dateien, deren Nummern als 
‚Argument angegeben wurde. 
Wird »CLOSE« ohne jegliches 
Argument befohlen, so werden 
alle offenen Dateien geschlos- 


sen. 
Öffnen und schließen Sie 
doch einmal probeweise eine 
Datei (FOR OUTPUTI!). Wenn 
Sie sich danach das Inhaltsver- 
zeichnis mit »FILES« ausgeben 
lassen, werden Sie auch Ihre 
neue Datei vorfinden. Nun läßt 
sich diese Datei auch zur Ein- 
gabe oder zum Anfügen öffnen. 
Die Befehle bzw. Menüpunk- 
te »END», »NEW«, »QUIT«, und 
»CLEAR« führen automatisch 
einen CLOSE-Befehl für alle of- 
fenen Dateien durch. Beendet 
man allerdings ein Programm 
mittels »STOP«, so bleiben ge- 
öffnete Dateien auch weiterhin 
offen. 
Schreiben in eine Datei 
Nur eine volle Datei ist eine 
gute Dateil So oder ähnlich 
könnte man diesen Abschnitt 
einleiten, denn schließlich sind 
Dateien ja dazu da, Daten zu 
speichern. Und dazu muß ein- 
mal mehr der gute alte PRINT- 
Befehl herhalten. Um seine 
‚Ausgaben auf eine Datei umzu- 
lenken, gilt das Format: 
PRINT #Dateinummer%,... 
Das Format der Daten und 
die Bedeutung der Trennzei- 
chen bleibt grundsätzlich das 
gleiche, nur muß vorangehend 


Die Parameter Modusi und 
Modus2$ beim OPEN-Befehl 


Modus Modus2 
OUTPUT lo) 
INPUT er 
APPEND "A 
Tabelle 6. »OPEN« ist 
nicht gleich »OPEN« 


und durch ein Komma getrennt 
die Nummer der Datei angege- 
ben werden. Die Kommata zur 
Trennung von Daten führen 
auch bei »PRINT #« zu Leer- 
zeichen zwischen die Daten. 
Grundsätzlich trennt man nu- 
merische Daten der Einfachheit 
halber durch Kommata, alpha- 
numerische Daten (Strings) da- 
gegen unbedingt durch Carria- 
ge Returns. Das heißt für jeden 
‚String benötigt man einen eige- 
nen PRINT-Befehl. Es sei denn, 
man bedient sich eines kleinen 
Tricks. Will man die drei Strings 


»"abc”«,»"def”« und »”ghi”« 
voneinander getrennt in eine 
bereits geöffnete Datei schrei- 
ben, funktioniert dies so: 


er$=CHR$(13) 
PRINT #1, "abe”;or$; 
"def”;er$;”ghi” 

Da der »Carriage Return« 
den ASCII-Code 13 besitzt, läßt 
sich auf diese Weise ein »Re- 
turn« in die PRINT-Ausgabe 
einfügen. 

Nun wollen wir eine Datel er- 
öffnen, mit Daten füllen und 
wieder schließen: 


PRINT ”Programm36: 
Datei-Demo” 
OPEN "Adresse” FOR 
OUTPUT AS #1 
PRINT #1,”Donald Duck” 
PRINT #1, ”Erpelweg 10” 
PRINT #1, "Entenhausen” 
CLOSE #1 

Ihre eigene Datei können Sie 
auch bewundern. Sie fragen 
sich wie, wenn wir doch noch 
gar keinen Befehl zur Eingabe 
von Daten aus einer Datei ha- 
ben? Nun, ganz einfach: Laden 
Sie die Datei wie ein Programm 
mit Menüpunkt »Open«. Der In- 
halt der Datei wird nun im List- 
Window erscheinen. Dies ist 
ein interessanter kleiner Trick, 
welchen Sie sich unbedingt 
merken sollten. 


Lesen aus einer Datei 

Trotzdem sollen Ihnen die 
Befehle zur Eingabe aus einer 
Datei nicht vorenthalten wer- 
den. Nachdem man zur Ausga- 
be aus »PRINT« den Befehl 
»PRINT #« gemacht hat, liegt 
es auch nahe, aus »INPUT« 
»INPUT#« zu machen. Und 
tatsächlich ist dies die einfach- 
ste Methode, eine Datei auszu- 
lesen: 

INPUT #Dateinummer%,Va- 
riable,Variable... 

Der Text, welcher vorher 
noch ausgegeben wird, entfällt 
nun, Prinzipiell gelten für 
»INPUT #«die gleichen Regeln 
wie für »INPUT«. Einiges sollte 
man aber noch speziell beach- 
ten, 

Numerische Daten werden 
durch Leerzeichen, Kommata, 
Carriage Returns oder einen 
Zeilenvorschub CHR$(10) von- 
einander getrennt. Bei alpha- 
numerischen Daten entfällt das 
Leerzeichen als Trennzeichen. 
Von welcher Art die einzulesen- 
den Daten nun letztlich sind, 
entscheiden ausschließlich die 
Variablentypen des INPUT #- 
Befehls. 

Angenommen, eine Datei hat 
den Inhalt: »1 2 3«, so kann die 
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Datei auf zwei Arten vollständig 
ausgelesen werden: 

INPUT #1,zahlen$ 

INPUT #1,zahll,zahl2, 
zahl3 


Die Variable »zahlen$« ent- 
hielte danach den String »1 2 
3«, während »zahli« den Wert 
»1« hätte, »zahl2« den Wert »2« 
und »zahl3« den Wert »3«, In 
dem Programm 36 hatten wir 
‚zur Trennung der einzelnen Da- 
ten mehrere PRINT-Befehle ge- 
geben (also Carriage Returns 
gesetzt), demnach läßt sich der 
Inhalt wie folgt auslesen: 


PRINT "Programm37: 
Datei-Demo” 

OPEN "Adresse” FOR 
INPUT AS #1 

INPUT #1,nane$ 
INPUT #1,strasse$ 
INPUT #1,ort$ 

CLOSE #1 

PRINT name$,strasse$, 
ort$ 


Ähnlich wie »INPUT #« ar- 
beitet auch der nächste Befehl. 
LINE INPUT #Datei- 
nummer%,Varlable$,Varlable$... 


Durch den Zusatz LINE wer- 
den nur noch »Carriage Re- 
turns« als Trennzeichen akzep- 
tiert, alle anderen Zeichen wer- 
den normal eingelesen. Des- 
halb dürfen die Variablen, in 
welche die Daten gelesen wer- 
den, nur mehr vom Typ String 
sein. Da wir in Programm 36 ja 
ausschließlich durch »Carriage 
Returns« getrennte Strings ein- 
lesen, können Sie ohne weite- 
res auch den Befehl »LINE 
INPUT #« verwenden. 

INPUT kann auch Funktion 
sein. Sie hat das Format: 
INPUTS(Anzahl%, # 
Dateinummer%) 

Es werden »Anzahl%« Zei- 
chen aus der Datei gelesen und 
als String übergeben. Dabei 
wird überhaupt kein Trennzei- 
chen (noch nicht einmal Carria- 
ge Return) mehr akzeptiert. 
Sollten Carriage Returns ent- 
halten sein, so enthält sie auch 
der String, der übergeben wird. 
‚Auf unser obiges Beispiel ange- 
wendet hieße das: 

PRINT ”Programm38: 
Datei-Demo” 

OPEN ”AdressePRINT 
INPUT AS #1 
adresse$=INPUT$(36, #1) 
CLOSE #1 

PRINT adresse$ 


Startet man das Programm 
38, so erhält man am Bild- 
schirm die Ausgabe: 


Donald Duck 
Erpelweg 10 
Entenhausen 


Dank der enthaltenen Carria- 
ge Returns erstreckt sich die 
Ausgabe des Strings über drei 
Zeilen. Den »Carriage Return«, 
welcher sich hinter jeder Zeile 
in der Datei befindet, darf man 
übrigens bei der Berechnung 
der einzulesenden Zeichen auf 
keine Fall vergessen! 


INPUT 
gleich Output 


Nun haben Sie das Werk- 
zeug in der Hand, beliebige Da- 
ten aus Ihren Programmen in 
einer Datei abzuspeichern und 
später wieder zu lesen. Abge- 
sehen von Spezialprogrammen 
wie Dateiverwaltungen etc. bie- 
tetessich z. B. auch an, Grafik- 
Daten in einer Datei zu spei- 
chern. 


PRINT "Programm! 
DIM shape&(65) 
CIRCLE (20,20),20,3 
20,20) ,10,3 
20,20) ,5,2 

PAINT (20,20) ,2,2 

PAINT (35,20),3,3 

GET (0,10)-(40,30) ‚ahape& 


OPEN *Bildsusschnitt” FOR 
FOR index#=0 70 65 

PRINT #1,shape&(Indexg) 
NEXT indexß 
CLOSE #1 
CLEAR 
DIN neues. shape&(65) 


FOR index$=0 10 65 

INPUT #1,neues. shape&(index$) 
NEXT Index 
CLOSE #1 


PUT (60,30) ‚neues. shapek 
END 


ative Date! 
‚39 


PRINT "Progranmd0: re 

Mr, #1, "Datei. 

FIELD #1,15 AS nnane$, 

Anfang: 
INPUT "Personenkent 
IF satznumnerk=O 
INPUT "Nachnane 
INPUT "Post! 
INPUT "Ort 
LSET nname$=datis 
LSET ple$edat2$ 
LSET ort$=dat3$ 
FUT #1,satenunmers 
GO10 Anfang 

Ende: 

CIOSE #1 

am 


Bildausschnitt speichern” 


OPEN "Bildausschnitt" FOR INPUT AS #1 


Listing 24. Bildausschnitt in einer Datei speichern 


en” 
pl28,20 AS ort$ 


(OsEnde) *;satznumner& 


Listing 25. Demo 1 zu relativen Dateien 


GRUNDLAGEN 


Bildausschnitte, welche mit 
»GET« geholt wurden, befinden 
sich ja bekanntlich als numeri- 
sche Information in einer Feld- 
variablen. Deren Inhalte kann 
man ohne weiteres in eine se- 
quentielle Datei schreiben und 
später wieder einlesen und wei- 
terverwenden. 

Bei großen Mengen von nu- 
merischen Daten sollten Sie 
aber auf keinen Fall beim 
PRINT #-Befehl Kommata ver- 
wenden. Denn diese führen zu 
einer Ausgabe von bis zu 14 
Leerzeichen zwischen den ein- 
zelnen Zahlen. Möchte man 
beispielsweise 1000 Zahlen ab- 
speichern, so können das ins- 
gesamt bis zu 14000 Leerzei- 
chen ergeben, was eine un- 
glaubliche Speicherver- 
schwendung bedeutet. In Li- 
sting 24 finden Sie ein Beispiel 
für die Speicherung eines Bild- 
ausschnittes in einer Datei. 

Die Grafik wird dabei in die 
Feldvariable »shape&« übertra- 
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gen und anschließend diese 
Feldvariable in eine Datei ge- 
schrieben. Danach löscht 
»CLEAR« den Variablenspei- 
cher. Nun lädt das Programm 
die sich auf Diskette befindli- 
chen Daten in die Feldvarlable 
»neues.shape&« und gibt die 
Grafik wieder auf den Bild- 
schirm aus. Zum Spaß können 
Sie jetzt einmal die Datei »Bild- 
ausschnitt« als Programm la- 
den. Im List-Window finden Sie 
jetzt untereinander 66 Zahlen 
des Typs Lon-Integer. 


Die Funktionen LOF() 
und EOF() 

Zwei Funktionen sind im Zu- 
sammenhang mit der Arbeit mit 
sequentiellen Dateien wichtig. 
Die erste, »LOF()« (Length of 
File), übergibt die Länge einer 
geöffneten Datei, deren Num- 
mer als Argument übergeben 
wird. Die zweite, »EOF()« (End 
of File), verlangt als Argument 
die Nummer einer geöffneten 
Datei. Sie übergibt den Wert 
»-1«, wenn das letzte Zeichen 
der Datei bereits gelesen wur- 
de, ansonsten übergibt sie »O«, 

‚Auf diese Weise kann man ei- 
ne Datei, deren Inhalt unbe- 
kannt ist, auf zwei Weisen voll- 
ständig auslesen. Bei der einen 
Methode läßt man in einer FOR- 
NEXT-Schleife so viele einzel- 
ne Zeichen auslesen, wie die 
Datei lang ist: 


OPEN "UnbekannteDatei” 

FOR INPUT AS #1 

FOR byte%=1 TO LOF(1) 
PRINT INPUT$(1, #1) 

NEXT byte% 

CLOSE #1 


Bei der zweiten Methode liest 
man so lange einzelne Zeichen 
aus der Datei, bis das Ende der 
Datei erreicht ist: 

OPEN "UnbekannteDatei” 
FOR INPUT AS #1 
WHILE EOF(1)=0 

PRINT INPUT$(1, #1) 
WEND 
CLOSE #1 


Sequentielle Dateien sind 
zwar einfach in der Handha- 
bung, haben aber mehrere 
Nachteile. So kann man auf ei- 
ne sequentielle Datei immer 
nur schreibend oder lesend zu- 
greifen, nicht aber beides 
gleichzeitig. Zudem muß man, 
um an eine bestimmte Stelle in 
der Datei zu gelangen, alle vor- 
hergehenden Daten auslesen. 
Schließlich werden numerische 
Werte auch noch explizit, also 
als einzelne Ziffern abspei- 
chert, was ziemlich viel Platz 
verbraucht. 
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Alle diese Nachteile haben 
relative Dateien (auch Direktzu- 
griffsdatei, Datei mit wahlfreiem 
Zugriff, engl. random access fi- 
le) nicht. Da die relativen Datei- 
en aber auch relativ kompliziert 
sind, wollen wir wieder einmal 
mit einem praktischen Beispiel 
beginnen, welches Sie in Li- 
sting 25 finden. 

Hier wird zunächst einmal ei- 
ne Datei mit dem Modus »R« 
geöffnet, was natürlich für 
Random-Access steht. Außer- 
dem fällt hier noch ein zusätz- 
licher Parameter auf, welcher 
den Wert 39 hat. 

Während in einer sequentiel- 
len Datei sämtliche Dateien hin- 
tereinander abgespeichert wer- 
den, werden die Daten in der re- 
lativen Datei in »Sätze« unter- 
teilt. Den Unterschied können 
Sie sich vorstellen wie zwi- 
schen durchgehend bedruck- 
tem Endlospapier und einem 
‚Aktenordner, in dem die Seiten 
einzeln abgeheftet und durchnu- 
meriert sind. Ein Satz einer rela- 
tiven Datei entspricht nun einer 
Seite in diesem Aktenordner. 


Beschreiben einer relativen 
Datei 

Der zusätzliche Parameter 
im OPEN-Befehl gibt die Größe 
eines Satzes in Einzelzeichen 
an. In einen Satz der eröffneten 
Datei (auf eine Seite des Akten- 
ordners) passen in unserem 
Fall also 39 Zeichen. Der Wert 
kann aber zwischen 1 und 128 
liegen. 

Der Satz wird noch in einzel- 
ne Felder verschiedener Länge 
unterteilt, was mit dem Befehl 
FIELD geschieht. Das erste 
Feld ist 15 Zeichen breit und 
Ihm wird die Variable »nname$« 
zugeordnet. Entsprechend ver- 
hält es sich mit den beiden an- 
deren Feldern. Die Längen der 
Einzelfelder zusammen dürfen 
höchstens die Seitelänge erge- 
ben, Im Beispiel trifft dies ge- 
nau zu, denn 15+4+20=39. 

In jeweils einem Satz diese 
relativen Datei sollen ein Nach- 
name, eine Postleitzahl und ein 
Ortsname abgespeichert wer- 
den, wobei die Postleitzahl der 
Einfachheit halber als String 
verarbeitet wird. In den auf das 
Label »Anfang:« folgenden Be- 
fehlen wird zuerst die ge- 
wünschte Satznummer einge- 
geben, welche prinzipiell 1 und 
16777215 liegen kann. Die Ein- 
gabe von »0« führt zur Beendi- 
gung der Eingabe und Sprung 
zum Label »Ende:«. 

Danach muß der Benutzer 
noch die Daten (Name, PLZ, 
Ort) eingeben. Hier dürfen auf 
keinen Fall die beim FIELD-Be- 


fehl angegebenen Variablen 
verwendet werden, sondern an- 
derel! Erst der Befehl »LSET« 
überträgt die Daten in den Puf- 
fer für die Datei. Wie »LSET« ge- 
nau funktioniert, ist weniger 
wichtig, man muß es nur richtig 
einsetzen können. 

Nach den drei LSET-Befeh- 
len befinden sich die Daten in 
dem Puffer für die Datei, und 
werden dann durch den PUT- 
Befehl in die Datei geschrie- 
ben. Das erste Argument des 
PUT-Befehls ist die Nummer 
der Datei, das zweite Argument 
ist die Nummer des Satzes, in 
den die Daten aus dem Puffer 
geschrieben werden sollen, 

Diese Schleife kann nun 
mehrmals durchlaufen werden, 
wobei die mehrmalige Eingabe 
der gleichen Satznummer den 
gleichen Satz mit immer neuen 
Daten füllt. Der Befehl »CLO- 
SE« ist auch wieder für relative 
Dateien zuständig. 


Auslesen relativer Dateien 

Da man ja auf eine relative 
Datei ständig wahlweise schrei- 
bend oder lesend zugreifen 
kann, sieht auch die Eröffnung 
der vorher geschriebenen Datei 
zum Lesen in Programm xxx 
genauso aus, wie die in Pro- 
gramm 41 (Listing 26). Sie müs- 
sen aber darauf achten, daß 
Satzlänge und Feldeinteilung 
immer gleich sind. Sonst kann 
es zu schwerwiegenden Feh- 
lern kommen. 

Auch in diesem Programm 
muß der Benutzer die ge- 
wünschte Satznummer einge- 
ben. Der Inhalt dieses Satzes 
wird dann mit dem Befehl 
»GET« in einen Puffer geladen. 
Das Format von »GET« ent- 
spricht genau dem von »PUT«. 
Nun befinden sich die Daten 
auch schon in den Variablen, 
welche im FIELD-Befehl ge- 
nannt wurden und können aus- 
gegeben oder weiterverarbeitet 
werden. 
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Listing 26. Demo 2 zu relativen Dateien 


Numerische Werte in 
relativen Dateien 

Das wär's eigentlich schon, 
was relative Dateien betrifft, 
wenn es da nicht noch die nu- 
merischen Daten gäbe. Wie be- 
reits erwähnt, werden diese 
nicht als einzelne Ziffern ge- 
speichert (wie in sequentiellen 
Dateien), sondern in einem 
speziellen Format. Also müs- 
sen sie erst in dieses Format 
gebracht werden. Dazu dienen 
die Funktionen: 
MKIS$() für Integer 
MKL$() für Long Inter 
MKSS$;) für Single Float 


PRINT "Programs; 
OPEN "R”, #1, Dar 
FIELD #1,15 AS m 
Anfang: 
INPUT "Personenke: 
IF satznumnerks 
INPUT "Nachname ";datz 
INPUT "Postleit 


Ende 


INPUT "Ort ";d 
LSET nnaneg=dat1$ 
1SET pl2$eNikI$(dat2) 
1SET ort$edat3s 
PUT #1, satznunnerk 
6010 Anfang 

Ende: 
CIOSE #1 
END 


Listing 27. Demo 3 zu relativen Dateien 


MKDS$() für Double Float 

Als Argument nehmen diese 
Funktionen einen numerischen 
Wert des jeweiligen Typs. Der 
Rückgabewert ist ein String, 
der die gleiche Zahl in dem spe- 
ziellen Format für relative Datei- 
en enthält. Diesen String kann 
man dann in den Puffer schrei- 
ben. 

Entsprechend gibt es auch 
noch vier numerische Funktio- 
nen, welche den String wieder 
zurück In eine Zahl wandeln; 
CV) für Integer 
CVL() für Long Integer 
CVS() für Single Float 
CVD() für Double Float 

Die Funktionen nehmen als 
Argument einen String im spe- 
ziellen Format und liefern als 
Rückgabewert die Zahl in dem 
entsprechenden Typ. Um in un- 
seren beiden Beispielprogram- 
men die Postleitzahl auf diese 
Weise als echte Zahl zu verar- 
beiten, bedarf es einer kleinen 
Änderung. Die neuen Versio- 
nen finden Sie in Listing 27 und 
Listing 28. Damit hätten wir das 
Thema Disketten und Dateien 
tatsächlich auch schon abge- 
schlossen. 

Man kann es immer nur wie- 
derholen: Experimentieren Sie 
möglichst viel mit den vorhan- 


PRINT “Progranm43: re 
OPEN "R”, #1, "Da‘ el; 
FIELD #1,15 AS nname$,4 
Anfang: 


39 


satenunnerk«D THEN Ende: 
#1,satenumnerk 


PRINT 
6010 Anfang 

Ende: 
SE #1 


ve Dateien4” 
AS pla$,20 AS ort$ 


UT "Personenkennziffer (O=Ende' 


Listing 28. Demo 4 zu relativen Dateien 


nunnerk 
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denen Beispielprogrammen 
und versuchen Sie, eigene Pro- 
gramme mit den erlernten Be- 
fehlen zu schreiben, so erlangt 
man am allerschnellsten weit- 
reichende Kenntnisse und Er- 
fahrungen: Probieren gehtüber 
studieren. 

Nachdem wir jetzt einige Zeit 
mit dem Peripheriegerät Disket- 
ten-Laufwerk gearbeitet haben, 
wird es Zeit, daß wir uns auch 
einem weiteren Peripheriegerät 
zuwenden, welches viele ihr ei- 
gen nennen dürfen: dem Druk- 
ker. Denn wenn Sie jetzt lang- 
sam anfangen, längere Pro- 
gramme zu schreiben, möch- 
ten Sie sicherlich der Übersicht 
halber auch Listing-Ausdrucke 
erstellen. Dies geschieht mit 
dem Befehl 
LLIST 

Er wird ohne Argumente ver- 
wendet und gibt das gesamte 
Listing auf den Drucker aus, 
Das »L« vor List steht dabei für 
»Lister«, was eine ältere Be- 
zeichnung für den Drucker ist. 

‚Aber man möchte jaauch ge- 
zielt bestimmte Daten auf dem 
Drucker ausgeben, und dazu 
verwendet man einmal mehr 
den Befehl PRINT. Ihm wird 
ebenfalls ein »L« vorangestellt, 
so daß es lautet: 

LPRINT Daten,Daten... 

Ansonsten finden alle Re- 
geln von »PRINT« sinngerecht 
Anwendung. 


Animation 
mit Sprites 


Erinnern Sie sich noch an 
den SCROLL-Befehl? Dort wur- 
de Ihnen versprochen, Sie wür- 
den später noch weitere Metho- 
den der Animation kennenler- 
nen. Dieser Zeitpunkt ist jetzt 
gekommen, wir behandeln die 
sogenannten Sprites und Blitter 
Objects (kurz: BOBs). 

Sprites kennen Sie vielleicht 
‚schon vom C 64. Dies sind grafi- 
sche Objekte von begrenzter 
Größe, die sehr schnell über 
den Bildschirm bewegt werden 
können, ohne daß sich der Bild- 
schirminhalt ändert, Sprites 
werden vom Grafikchip er- 
zeugt, haben eine Breite von 
maximal 16 Punkten und einer 
unbegrentzten Höhe. 

BOBs dagegen werden von 
einem speziellen Chip, dem 
Blitter, erzeugt. Dieser ist im 
‚Amiga zuständig für das Umko- 
pieren von Speicherbereichen. 
Die BOBs sind nicht ganz so 
schnell wie Sprites, können 
aber beliebige Größe und belie- 
bige Farben annehmen. 


Doch woher kommen diese 
grafischen Objekte? Erfreu- 
licherweise bekommt man 
von den Entwicklern des Ami- 
ga-Basic einen recht guten Ob- 
jekte-Editor mitgeliefert, wel- 
cher sich auf der Extras-Disket- 
te im BasicDemos-Verzeichnis 
befindet. 

Und ebenso erfreulich ist, 
daß zu diesem Editor eine aus- 
führliche und gut verständliche 
Anleitung mitgeliefert wird. Sie 
finden sie im Amiga-Basic- 
Handbuch auf den Seiten 7-1 
bis 7-7. Diese Anleitung sollten 
Sie sich jetzt aufmerksam 
durchlesen, und dann schon 
einmal ein paar Objekte zeich- 
nen und auf Diskette speichern. 

Der Befehl, mit dem man ein 
Objekt definiert, lautet: 
OBJECT.SHAPE Nummer%, 
Definition$ 

Jedes Objekt bekommt eine 
Nummer größer als null, unter 
der es später ansprechbar ist. 
Die Defintion ist als binäre Infor- 
mation in einem String gespei- 
chert, welchen der Object-Edi- 
tor in die Datei geschrieben hat. 
Diese Definition bestimmt 
auch, obessich beidem Objekt 
um ein Sprite oder ein BOB 
handelt. 


Die Definiton von Objekten 
Für die Definition eines Ob- 
jekts muß man die Datei, wel- 
che der Object-Editor unter ei- 
nem von Ihnen bestimmten Na- 
men gespeichert hat, wieder la- 
den. Dies geht am einfachsten 
so (vorausgesetzt ein Objekt 
wurde unter dem Dateinamen 


»Objekt« gespeichert): 
OPEN ”Objekt” FOR 
INPUT AS #1 
OBJECT.SHAPE 1, INPUT$ 
(LOF(1), #1) 

CLOSE #1 


Mit diesen drei Zeilen hat 
man ein Objekt von Diskette ge- 
laden und definiert. Um mehre- 
re Objekte gleichen Aussehens 
speichersparend zu definieren, 
verwendet man das folgende 
Format: 

OBJECT.SHAPE Nummer 
Neu%,NummerAlt% 

Nun erhält man ein neues 
Objekt mit der Nummer 
»NummerNeu%«, welches mit 
dem Objekt mit »NummerAlt%« 
identisch ist. Der Vorteil dieses 
Befehls ist, daß die beiden Ob- 
jekte auf die gleiche grafische 
Information zugreifen, und so 
nur den Speicherplatz eines 
einzigen Objekts belegen. 
OBJECT.CLOSE 
Nummert%,Nummer2%,... 

‚Auf diese Weise wird die Defi- 
nition eines oder mehrerer Ob- 
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jekte wieder rückgängig ge- 
macht. Der Speicherplatz steht 
wieder zur freien Verfügung, 
und unter den entsprechenden 
Nummern kann kein Objekt 
mehr angesprochen werden. 
OBJECT.ON Nummer1%, 
Nummer2%,... 

OBJECT.OFF Nummer%, 
Nummer2%,... 


Der Blitter 
macht’s 


Diese beiden Befehle schal- 
ten ein oder mehrere Objekte, 
deren Nummern als Argument 
angegeben sind, ein bzw. aus. 
Ein eingeschaltetes Objekt ist 
sichtbar, ein ausgeschaltetes 
unsichtbar. 

OBJECT.X Nummer%,x% 
OBJECT.Y Nummer%,y% 


Listing 29. Demo zur Objekt-Animation 


Das angegebene Objekt wird 
auf die jeweilige horizontale 
bzw. vertikale Koordinate ge- 
setzt. Dabei ist die linke obere 
Ecke des imaginären Recht- 
ecks entscheidend, indem sich 
das Objekt befindet. 
OBJECT.X(Nummer%) 
OBJECT.Y(Nummer%) 

Diese beiden Funktionen lie- 
fern als Rückgabewert die hori- 
zontale bzw. vertikale Koordina- 
te des als Argument angegebe- 
nen Objektes. 
OBJECT.PRIORITY 
‚Nummer%,Priorität% 

Dem angegebenen Objekt 
wird ein Prioritätswert zugeord- 
net, welcher zwischen -32768 
und +32767 liegen kann. Soll- 
ten sich Objekte überlappen, so 
wird jeweils das Objekt mit dem 
niedrigeren Prioritätswert über- 
deckt. Objekte mit gleichem 
Prioritätswert verdecken sich 
zufällig. 

Die Animation von Objekten 
OBJECTVX Nummer%, 


Geschw% 
OBJECTVY Nummer%, \ 
Geschw% 

Das angegebene Objekt er- 
hält eine Geschwindigkeit, de- 
ren horizontale und vertikale 
Komponente hier festgelegt 
werden. Die Geschwindigkeit 
ist in Einzelpunkten pro Sekun- 
de anzugeben. Nach »OBJECT. 
VX 1,10« bewegt sich also das 
Objekt Nummer »1« mit zehn 
Punkten pro Sekunde über den 
Bildschirm, nachdem es ge- 
startet wurde. 
OBJECTVX(Nummer%) 
OBJECT.VY(Nummer%) 

Entsprechend übergeben 
diese beiden Funktionen die 
Geschwindigkeitskomponenten 
des angegebenen Objektes. 
OBJECT.AX Nummer%, 
Beschl% 

OBJECT.AY Nummer%, 
Beschl% 


Das angegebene Objekt er- 
fährt eine gleichmäßige Be- 
schleunigung, sobald es ge- 
startet wird. Die Beschleuni- 
gung ist in Punkten pro Qua- 
dratsekunde anzugeben und 
muß positiv sein. Ein ruhendes 
Objekt bewegt sich nach »OB- 
JECT.AX 1,10)« in der ersten Se- 
kunde mit 10 Punkten pro Se- 
kunde, in der zweiten Sekunde 
mit 20 Punkten pro Sekunde, in 
der dritten Sekunde mit 30 
Punkten pro Sekunde usw. 
OBJECT.START Nummer!%, 
Nummer2%,... 

OBJECT.STOP Nummer1%, 
Nummer2%,... 

Ein Objekt, für das bereits 
Geschwindigkeit und/oder Be- 
schleunigung gesetzt wurden, 
bewegt sich tatsächlich erst 
dann, wenn es mit »OBJECT. 
START« gestartet wurde. Ent- 
sprechend wird es durch »OB- 
JECT.STOP« an der jeweiligen 
Position angehalten. Die bei- 
den Befehle sind auch auf meh- 
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rere Objekte gleichzeitig anzu- 
wenden. 

OBJECT.CLIP (x1%,y1%) 
(x2%,y2%) 

Dieser Befehl legt die Gren- 
zen fest, innerhalb derer Objek- 
te dargestellt werden dürfen. 
Außerhalb dieser Grenzen sind 
dann keine Objekte mehr mög- 
lich. Normalerweise bestehen 
diese Grenzen aus der Win- 
dow-Umrandung. Stößt ein ani- 
miertes Objekt gegen eine sol- 
che Grenze, so wird es ange- 
halten. 

Zugegeben, diese 18 Befehle 
und Funktionen waren jetzt ein 
großes Stück trockener Theo- 
rie, aber erst mit dieser grauen 
Theorie ist es möglich, in der 
Praxis aus dem Vollen zu 
schöpfen. Und genau das tut 
das Demo-Programm 44 (Li- 
sting 29). Um es starten zu kön- 
nen, muß sich Im aktuellen Ver- 
zeichnis ein Objekt namens 
»Ball« befinden, 

Dieses Objekt wird eingele- 
sen und an die Stelle »10/10« ge- 
setzt, Es bekommt die horizon- 
tale Geschwindigkeit 45 Punk- 
te/s und die vertikale Geschwin- 
digkeit 5 Punkte/s. Nun wird 
noch eine vertikale Beschleuni- 
gung von 1 Punkt/s? hinzuge- 
fügt. 

Der nächste Befehl be- 
schränkt die Darstellung des 
Objektes auf ein Rechteck mit 
den Ecken 10/10 und 400/180. 


PRINT "Progrannd5: WAVE/SOUND-Deno” 


WAVE 0,510 
FOR anplitudefs -128 TO 127 
wellei(anplitudeg+128)=amplitudeg 


IF anplitude<o THEN 
welle3(amplitudef+128)=-128 


SE 

welle3(amplitudeg+128)=127 
END IF 

NEXT anplitudeg 


SOUND 200,30,255,0 
GOSUB warten 
SOUND 200,30,255,1 
GOSUB warten 
SOUND 200,30,255,2 
GOSUB warten 
‚SOUND 200,30,255,3 


FOR frequfs20 70 1500 STEP 3 
SOUND Frequf,1,255,0 
NEXT £requf 


FOR lautf=-255 10 255 STEP 2 
SOUND 300,1,259-ABS(1autf),O 

NEXT lautf 

END 

warten: 

FOR dummys1 TO 4000 


NEXT. dumm 
RETURN 


DIM welle1(256) ‚welle2(256) ‚welle3(256) 


wello2(anplitudef+128)=127-ABS(anplitudex) 


Listing 30. WAVE-SOUND-Demo 


Tabelle 7. Auch diese Befehle werden Sie bald beherrschen 


Dieses Rechteck wird dann 
auch noch mit einem LINE- 
Befehl sichtbar gemacht. Da- 
nach bleibt nichts mehr übrig, 
als das Objekt einzuschalten 
und zu starten, 

In der Unendlichkeitsschleife 
werden dann die einzelnen Po- 
sitionen des Objekts miteinan- 
der verbunden, so daß die Flug- 
bahn deutlich sichtbar wird. 
Selbige Flugbahn nimmt durch 
die Beschleunigung in einer 
Richtung Parabelform an. Dies 
ist z.B. auch die Flugbahn eines 
in horizontale Richtung gewor- 
fenen Steines, der von der Erd- 
anziehungskraft nach unten 
beschleunigt wird. 
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CONT DELETE LIST 
LOAD NEW RUN 
SYSTEM TRON TROFF 
BEEP LIBRARY LOCATE 
LPRINT USING POKE POKEL 
POKEW PRINT USING SET 
WRITE RITE# COLOR 
OBJECT.PLANES PATTERN WIDTH 
CHAIN 'OMMON CDBL() 
FRE( LOCH) LPOS() 
PEEK() PEEKL() PEEKW 
STICK) STRIG) UBOUND 
VARPTR() WINDOW) HEXS 
OCTSO PTABU) SPC() 
TAB0) 


Kollisionen als 
Unterbrechungs-Ereignis 

Wenn das Objekt im Beispiel- 
programm mit der Begrenzung 
kollidiert, so wird es angehal- 
ten. Normalerweise führen aber 
Kollisionen zwischen einem 
Objekt und der Begrenzung 
oder einem anderen Objekt zu 
einer Unterbrechung. Dazu be- 
nötigt man die Befehle 
ON COLLISION GOSUB 
Label 
COLLISION ON 
COLLISION OFF 
COLLISION STOP 

Diese Unterbrechungs-Be- 
fehle arbeiten genauso wie alle 
anderen dieser Art, nur daß Sie 
sich eben auf Objekt-Kollisio- 
nen beziehen. Allerdings ist 
diese Verarbeitung von Kolli- 
sions-Ereignissen sehr kompli- 
ziert und erfordert weitreichen- 
dere Kenntnisse, so daß sie 
Rahmen dieses Kurses nicht 
vermittelt werden können, Zu- 
dem funktionieren auch einige 
Befehle in diesem Zusammen- 


Musik mit 
dem Amiga 


hang nicht so, wie im Ami- 
ga-Basic-Handbuch angege- 
ben. Daher seien Ihnen für wei- 
tere Programmiertätigkeiten auf 
diesem Gebiet ein entspre- 
chendes Fachbuch, viel Zeit 
zum Ausprobieren sowie starke 
Nerven empfohlen. 

Zum Abschluß dieser kleinen 
Einführung in Amiga-Basic 
wenden wir uns einem ganz an- 
deren Thema zu: der Musik. 
Wie Sie ja vielleicht schon wis- 
sen, ist Schall nichts anderes 
als eine Schwingung der Luft, 
Und diese Schwingung der Luft 
wird z.B. durch die Schwingung 
einer Lautsprechermembran 
erreicht. Nun können diese 


Schwingungen, welche der 
Lautsprecher ausführt, sehr 
verschiedene Formen anneh- 
men, so etwa die Form einer Si- 
nuswelle. Diese Welle wird in 
Reinstform von einer Stimmga- 
bel abgegeben. 

‚Aberesgibtauch sog. Recht- 
eck-, Dreieck oder Sägezahn- 
schwingungen, Mit dem Befehl 
Wafe kann man sich nun eine 
eigene Wellenform definieren. 
Die Formate lauten: 

WAVE Kanal%,SIN 
WAVE Kanal%,Feldvar% 

Insgesamt stehen dem Ami- 
ga vier Tonkanäle zur Verfü- 
gung, welche von 0 bis 3nume- 
riert sind und gleichzeitig Töne 
ausgeben können. Das erste 
Format. definiert eine Sinus- 
BD für den angegebenen Ka- 
nal. 

Für das zweite Format hinge- 
gen benötigt man eine Feld- 
variable mit mindestens 256 
Elementen. Jedes dieser Ele- 
mente muß dann einen Wert 
zwischen -128 und 127 enthal- 
ten. Ein einzelner Wert gibt 
dann sozusagen die Auslen- 
kung der Lautsprechermem- 
bran aus ihrer Ruhelage zu ei- 
nem bestimmten Zeitpunkt an, 
Daraus ergibt sich dann in der 
Aneinanderreihung aller Ein- 
zelwerte eine Schwingungs- 
form. 

Doch mit der Definition der 
Schwingungsform ist es noch 
nicht getan. Nun muß der Ton 
auch noch zum Lautsprecher 
geschickt werden, Dazu dient 
der Befehl SOUND: 

SOUND Frequenz%, 
Dauer%,Lautstärke%,Kanal% 


Die Frequenz entspricht der 
Tonhöhe und muß zwischen 20 
und 15000 liegen. Die Dauer 
des Tones wird in Zeittakten 
zwischen 0 und 77 angegeben, 
wobei 18,2 Zeittakte ungefähr 
einer Sekunde entsprechen. 
Die Lautstärke darf einen Wert 
zwischen 0 (Ruhe) und 255 
(maximale Lautstärke) anneh- 
men. Schließlich kann der Be- 
nutzer auch noch bestimmen, 
über welchen Kanal der Ton er- 
zeugt werden soll. Dabei führen 
die Kanäle O und 3 zum linken, 
die Kanäle 1 und 2 dagegen 
zum rechten Lautsprecher (vor- 
ausgesetzt, Sie haben Ihre 
Cinch-Buchsen richtig einge- 
steckt). 

Nun wird es Zeit für ein klei- 
nes Demonstrationsprogramm. 
Programm 45 (Listing 30) er- 
zeugt zuerst vier verschiedene 
Wellenformen und spielt nach- 
einander in jeder Wellenform 
einen Ton. Die erste Welle hat 
Sinusform, die zweite Säge- 
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zahnform, die dritte Dreiecks- 
form und die vierte Rechteck- 
form. 

Zugegeben, die verschiede- 
nen Klänge sind nur beim ge- 
nauesten Hinhören zu unter- 
scheiden, aber sie sind tatsäch- 
lich verschieden. Danach wird 
ein Frequenzbereich durchlau- 
fen. Zum Abschluß läßt das Pro- 
gramm einen Ton an- und wie- 
der abschwellen. 

Noch zwei Befehle erleich- 
tern den Umgang mit Tönen. 
Nach SOUND WAIT gegebene 
SOUND-Befehle werden nicht 
sofort ausgeführt, sondern der 
Interpreter merkt sie sich. Erst 
wenn der Befehl SOUND RE- 
SUME kommt, werden die Töne 
alle gleichzeitig gestartet. Auf 
diese Weise lassen sich mehr- 


stimmige Sound-Effekte besser 
synchronisieren. 

Natürlich kann man auf diese 
Weise auch ganze Musikstücke 
programmieren, aber für länge- 
re Melodien wartet eine Menge 
Tipparbeit auf den Program- 
mierer. Hier bedient man sich 
doch besser eines speziellen 
Musikprogramms, 


Sprachausgaben- 
Know-how 


Zuallerletzt soll auch noch 
der Befehl zur Sprachausgabe 
auf dem Amiga zur Geltung 
kommen. Dieser lautet: 

SAY TRANSLATES$(Text$) 

Der »Text$« wird in amerikani- 

scher Sprache ausgegeben. 


(ARUNDLAGEN 


Beim ersten Aufruf des SAY- 
Befehls lädt übrigens der Com- 
puter eine spezielle Datei von 
Diskette. Wundern Sie sich also 
nicht, wenn plötzlich das Lauf- 
werk aktiviert wird. Sollte sich 
im Laufwerk keine System-Dis- 
kette befinden, so erscheint 
eine Aufforderung am Bild- 
schirm, selbige einzulegen. 
Wenn Sie sich näher mit der 
Sprachausgabe unter Amiga- 
Basic beschäftigen wollen, ver- 
weise ich Sie auf die Seiten 
9.218 bis 9-220 sowie den An- 
hang H im Basic-Handbuch. 
Das war unser kleiner Ein- 
stieg in die Sprache Amiga-Ba- 
sic. Trotz der Fülle von vorge- 
stellten Befehlen und Funktio- 
nen konnte doch nicht die gan- 
ze Funktionsvielfalt berücksich- 


tigt werden. Die Befehle, wel- 
che nicht erwähnt wurden, fin- 
den Sie in Tabelle 7. Wenn Sie 
sich umfassend in Amiga-Basic 
einarbeiten wollen, sollten Sie 
das Handbuch intensiv studie- 
ren und sich der zahlreichen 
Fachliteratur zu diesem Thema 
bedienen. 

Ich hoffe, dieser Kurs war für 
Ihren Einstieg in Amiga-Basic 
hilfreich, und wünsche Ihnen 
weiterhin viel Erfolg und gute 
Nerven für die Programmie- 
rung des Amiga. pe 


nen ihn über unsere Verlagsanschrift errel- 
chen (MarktäTechnik Verlag AG, Redaktion 
2.Hd. Hr. Nikolaus Huber, Hans- 


8013 Haar bei München), 


Assembler-Routinen in Basic 


Der CPU auf den Pelz gerückt 


Wenn Sie Amiga-Basic beherrschen, es 
bis an seine Grenzen ausreizen, und es Ih- 
nen immer noch zu langsam ist, dann ist 
dieser Artikel der richtige für Sie. 


Von Armin Sander Armin Sander 


st Ihnen Amiga-Basic zu 
langsam und Sie verspüren 
keine Lust, sich ein Jahr 
oder länger in eine neue Pro- 
grammiersprache einzuarbei- 
ten, dann verwenden Sie doch 
‚Assembler-Routinen, wie Sie in 
den Tips & Tricks aus dem AMI- 
GA-Magazin zu finden sind, in 
Ihren Basic-Programmen. Sie 
denken, das geht nicht? Und 
ob, es gibt hierzu zweierlei Lö- 
sungen. Die erste, etwas um- 
ständlichere Methode ist, das 
Maschinenprogramm im As- 
sembler als Binärdatei abzu- 
speichern, und es in Basic mit 
einem »OPEN«-Befehl in einen 
String einzulesen, und das Pro- 
gramm mit Hilfe der »SADD« 
und »CALL«-Funktion zu starten. 
Diese Möglichkeit enthält für 
den Programmierer gravieren- 


Programmname: 


Demo-Programm 


de Nachteile. So kann es sein, 
daß der geladene String (Pro- 
gramm) an eine gerade Adres- 
se gesetzt wird, und somit der 
Computer bei einem Aufruf des 
Programms abstürzt. Das Pro- 
gramm muß außerdem immer 
positionsunabhängig program- 
miert sein. Was bei längeren 
Projekten umständlich ist. 

Am einfachsten ist es, ein 
Programm, das von Basic auf- 
gerufen werden soll, über 
»LoadSegment« zu laden und 
es mit »CALL«-Befehl zu star- 
ten. Auf diese Weise fallen alle 
oben genannten Nachteile 
weg. Man kann nach Herzens- 


BREAK ON 
CALL Loaä0bject( "So: 
PRINT 

PRINT "Zuralzig:” 


9EN FR 
Computer: A500, A1000, A2000 40 292 
mit Kickstart 1.2&13| .;%. 
200 N 
Sprache: Amiga-Basic Er a 
aD P 
Bemerkung: siehe Text S Po 
16.aT 
Programneutor: Armin Sender u 182 
18 5%0 NEXT t 


lust ein Assemblerprogramm 
programmieren, und es als Ob- 
jekt auf Diskette speichern, wo- 
bei es dann sowohl vom »CLI« 


Geschwindigkeit 
überzeugt 


als auch in Basic ausführbar ist. 

Als Beispiel habe ich in As- 
sernbler ein Programm ge- 
schrieben (Sort.asm), das lan- 
ge Ganzzahlvariablen (Ken- 
nung: ”&”) sortiert. Der Ge- 
schwindigkeitsunterschied ist 
im Vergleich zu einer Basic- 
Routine enorm. Um das As- 


*) 


Li 


sabscahtdrh 


Listing 1. Das kurze Demo- 

ing zeigt, wie schnell ausführbare 
Programme in Basic eingebunden 
werden können 


sembler-Programm von Basic 
aus zu starten, müssen die bei- 
den Library-Funktionen »Load- 
Seg« und »UnLoadSeg« mit 
dem »DECLARE«-Befehl in das 
Basic-Programm eingefügt 
werden. Um einen Zugriff auf 
die DOS-Library zu erhalten 
(sie zu öffnen), muß man noch 
die »Library«-Funktion aufru- 
fen, und dafür sorgen, daß die 
»dos.bmap«-Datei sich im ak- 
tuellen Verzeichnis befindet. 
Jetzt kann endlich die Sortier- 
Routine mit dem Unterpro- 
gramm »LoadObj« in den Spei- 
cher des Amigas geladen wer- 
den, und mit »CALL« je nach 
Gebrauch einmal oder mehr- 
mals angesprungen werden. 
Am Ende des Basio-Pro- 
gramms sollte mit »UnLoad- 
Obj« der Speicher der Sortier- 
routine wieder freigegeben 
werden, und die DOS-Library 


dobject(Na$,ca&) STATIC 
adSegk(SADD(Na$+CHRF(0))) 
&<=0 THEN ERROR 53 


ann, um ein Objekt aus 
zu entfernen. 
%) STATIC 


gu(cak) 


N HOMESOMPUTERWORLD.COM 
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Programmname: Generiert das Programm Sort 


Computer: A500, A1000, A2000 
mit Kickstart 1.2 & 13 
Sprache: Amiga-Basic 
Bemerkung: Siehe Text 


REM Generiert 


FOR del TC 


READ h$ 


Listing 2. Der 
Hex-Dump-Lader 
erzeugt das 
Programm »Sort«, 
welches im 
Listing 1 die 
Sortierarbeiten 
übernimmt 


mit »LIBRARY CLOSE« ge- 
schlossen werden. 

Als Beispiel werden in dem 
Basic-Programm zehn zufällige 
Ganzzahlvariablen aufsteigend 
sortiert. 

In dem Programm werden 
folgende Unterroutinen be- 
nutzt: 


LoadObj ("Name ‚Adresse&) 
In der »LoadObj«-Routine 
wird versucht, das als »Name« 


angegebene Programm in den 
Speicher zu laden. Falls dies 
nicht möglich ist, erscheint die 
Fehlermeldung »File not found« 
(Datei nicht gefunden). Der 
Rückgabeparameter »Adres- 
se&« enthält die Startadresse 
des Programms, welche auch 
für »UnloadObj« benötigt wird. 


UnLoadObj (Adresse&) 
Dient zur Freigabe des be- 
legten Programmspeichers. 


Falls Übergabeparameter 
beim Aufruf des Maschinenpro- 
gramms in Klammern angege- 
ben werden, gelangen diese 
auf den Stack (sp o. a7), bevor 
das Programm gestartet wird. 
Sie können dadurch einfach 
ausgewertet werden. 


In Listing 1 finden Sie das 
Demo-Programm, in welches 
das Assembler-Programm 
»Sort« eingebunden wird. 


Die Sotier-Routine finden Sie 
in Listing 2 als Hex-Dump- 
Lader, welcher das lauffähige 
Progamm generiert. 


So, ich hoffe, Sie haben sich 
überzeugen lassen, daß As- 
sembler-Programme keine Pro- 
bleme in Basic sind, wenn 
nicht, probieren Sie's aus. Sie 
werden sehen, daß es wirklich 
soleicht ist. Viel Spaß beim Pro- 
grammieren. pe 


Druckeransteuerun 


über das Printer-Device 


Drucker-Kunst 


ruckeransteuerung, ein 

Buch mit sieben Sie- 

geln für Sie, oder ken- 
nen Sie den LPRINT-Befehl in 
Basic? Welche Escape-Se- 
quenzen wie an den Drucker 
übermittelt werden, und daß es 
auch noch eine alternative An- 
steuerung gibt, soll dieser Artikel verdeutlichen. 

Prinzipiell stellt der Amiga eine sehr komfortable Schnittstelle 
zum Drucker zur Verfügung - das Printer-Device. Im Preferences 
auf Ihrer Workbench können Sie Ihren Drucker anwählen (wie dies 
gemacht wird, erklärten wir ausführlich im Sonderheft Nr. 8 (Start- 
hilfe) auf Seite 46. Daraufhin werden die standarisierten Escape- 
Sequenzen automatisch beim Ansprechen des Druckers in der 
richtigen Form gesendet, Sie brauchen sich also nicht weiter dar- 
um zu kümmern, egal welches Programm Ihren Drucker anspricht. 

Von Basic aus schickt man Daten mit dem LPRINT-Befehl an 
den Drucker. Dieser Befehl funktioniert in gleicher Weise wie der 
PRINT-Befehl für die Ausgabe auf dem Bildschirm. Um für den 
Ausdruck bestimmte Schriftarten und weitere Optionen zu bestim- 
men, werden sog. Escape-Sequenzen an den Drucker übergeben. 
Dabei sendet man dem Drucker zuerst das Escape-Steuerzeichen 
(ASCII-Code 27). Der Drucker weiß nun, daß keine Daten zum Aus- 
druck folgen, sondern ein bestimmter Code, der eine Druckerein- 
stellung verändert bzw. festlegt. Dies kann beispielsweise wie folgt 
aussehen: 


LPRINT CHR$(27) ; "[4m” 
LPRINT “Dieser Text ist unterstrichen.” 
LPRINT CHR$(27) ; "[24m” 
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Eigentlich ist es ganz einfach, das Pro- 
grammieren des Druckers. Man muß nur 
wissen »wie«. Hier erfahren Sie es. 


Von Andreas Regul 


Wie Sie sehen, ist es im Ge- 
gensatz zum Öffnen von Datei- 
en auf Diskette nicht nötig, mit 
dem OPEN-Befehl einen Kanal 
für die Ausgabe zu öffnen. 
Beim ersten Auftreten eines 
LPRINT-Befehls reserviert der 
Interpreter automatisch einen 
Kanal für die Ausgaben auf den Drucker. Alle Daten, die daraufhin 
an den Drucker gesendet werden, erreichen diesen nicht auf direk- 
tem Wege. Nun tritt das Printer-Device in Aktion, das anhand des 
eingestellten Druckertreibers diese Steuersequenzen übersetzt in 
genau die Sequenzen, die Ihr Drucker benötigt. Den Drucker errei- 
chen also nicht dieselben Steuersequenzen, die Sie in Ihrem 
Basic-Programm eingeben. Durch diesen Standard können Sie 
Programme schreiben, ohne darauf achten zu müssen, welcher 
Drucker angeschlossen ist. Das Printer-Device übernimmt für Sie 
die Arbeit, die richtigen Sequenzen zu senden, die wiederum vor- 
gegeben sind von der Druckereinstellung im Preferences. 

Im obigen Beispiel wird zuerst der Escape-Code 27 gesendet, 
dann folgt mit »[4m« der Code zum Einstellen der Unterstreichung. 

Wenn Sie mehrere Steuercodes an den Drucker schicken, muß 
vor jeder Steuersequenz der Escape-Code stehen. Ein Beispiel: 


LPRINT CHR$(27) ; "[4m”;CHR$(27) ; "[3m” 
LPRINT "Dies ist ein Testausdruck” 


In der ersten Zeile wählen Sie gleichzeitig »unterstrichen« ([4m) 
und »kursiv« ([3m). 

Wenn Sie eines der beiden bisherigen Beispiele ausprobiert ha- 
ben, ist Ihnen vielleicht ein kleiner Schönheitsfehler aufgefallen. 
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Obwohl jeweils nur eine Textzeile ausgedruckt wird, rückt das Pa- 
pier um mehrere Zeilen vor. Die Ursache liegt darin, daß auch die 
Steuersequenzen einen Zeilenvorschub am Ende erhalten. Dies 
läßt sich mit dem Semikolon sehr einfach unterbinden. Wie bei 
PRINT wird hierdurch kein Zeilenvorschub ausgeführt. Die Steuer- 
sequenzen bewirken keine Bewegung des Druckkopfes. Das be- 
deutet, der Text wird nicht vorgeschoben ausgedruckt, auch wenn 
Steuerzeichen vorangehen. Ein Beispiel: 


LPRINT CHR$(27);”[4m”; "Dies ist ein Testausdruck” 

Der Text beginnt trotz Steuersequenzen in der ersten Spalte 
(bzw. in der Spalte, in welcher der linke Rand gesetzt ist). 

Da die Fülle der Steuersequenzen kaum zu merken ist, können 
Sie für größere Programme beim Initialisieren von Variablen diese 
Sequenzen auch in Stringvariablen ablegen. So wird ein Programm 
übersichtlicher und bleibt noch lange nachvollziehbar. Beispiel: 


KursivAn$=CHR$(27)+"[3m” 
KursivAus$=CHR$ (27)+”[23m” 
FettAn$=CHR$(27)+"[im” 
FettAus$=CHR$(27)+”[22m” 


LPRINT KursivAn$;FettAn$; "Dieser Text ist Kursiv 
und Fett” 
LPRINT KursivAus$; FettAus$ 


Das Auslagern von Steuersequenzen in Variablen eignetssich vor 
allem dann, wenn Sie umfangreiche Druckroutinen programmie- 
ren, die diverse Steuersequenzen beinhalten. 


Know-how 


In der Tabelle 1 finden Sie alle wichtigen Sequenzen. Manche 
Escape-Sequenzen enthalten Anführungszeichen, die bereits von 
Basic aus genutzt werden. Um dennoch diese Sequenzen zu be- 
nutzen, muß dieses Zeichen als ASCII-Code 34 übergeben wer- 
den. Ein Beispiel: 

LPRINT CHR$(27);"[2”2” falsch II! 


In diesem Fall würde das Amiga-Basic mit einer Fehlermeldung 
abbrechen, da der Interpreter das Ende der Zeichenkette beim 
zweiten Anführungszeichen erkennt. Mit dem folgenden »z« und 
dem dritten Anführungszeichen kann der Computer nichts mehr 
anfangen, Folgende Schreibweise ist dagegen richtig: 

LPRINT CHR$(27) ; "[2”;CHR$(34) ; "2" 

Das Anführungszeichen ist in diesem Fall lediglich als ASCII- 
Code angegeben. Dies führt zu keinem Fehler. 

Manche Steuersequenzen benötigen noch einen zusätzlichen 
Wert wie die Einstellung der Druckränder, Diese werden als ASCII- 
Code statt des »n« eingesetzt oder hinten angehängt. Beispiel: 

LPRINT CHR$(27);”#9”;CHR$(10) 

Dies setzt den linken Druckrand an die Spaltenposition 10, Der 
Wert wird nicht im String, sondern als ASCII-Code übergeben. 

Bisher haben wir nur die Ansteuerung des Druckers über das 
Printer-Device besprochen. Dies ist auch der eleganteste und vor 
allen kompatibelste Weg, einen Drucker mit Daten zu versorgen. 
In manchen Fällen ist es aber nicht möglich, auf diese Weise Steu- 
ersequenzen zu übertragen. 

Für alle, die einen sehr ausgefallenen Druckertyp besitzen, ist 
es sicherlich keine Neuigkeit, daß Ausdrucke auf dem Papier an- 


Steuersequenzen für Drucker 


Steuersequenz Bedeutung Steuersequenz Bedeutung 

ESC [4m Unterstrichen an ESC(C Dänischen Zeichensatz Il einstellen 

ESC [24m Unterstrichen aus ESC (H Schwedischen Zeichensatz einstellen 

ESC [im Fettschrift an ESC(Y Italienischen Zeichensatz einstellen 

ESC [22m Fettschrift aus ESC (Z Spanischen Zeichensatz einstellen 

ESC [3m Kursiv an ESC (J Japanischen Zeichensatz einstellen 

ESC [23m Kursiv aus ESC (6 Norwegischen Zeichensatz einstellen 

ESC [30m-[39m _Vordergrundfarbe (nur für Farbdrucker) ESC [2p Proportionalschrift ein 

ESC [40m-[49m _Hintergrundfarbe (nur für Farbdrucker) ESC [ip Proportionalschrift aus 

ESC [0m Normaler Schriftstil (alle obere Einstellungen ESC [Op Zeichenabstand für Proportionalschrift löschen 
aus) ESC [nE ‚Abstand für Proportionalschrift setzen (mit 

ESCc Drucker zurücksetzen (die Einstellungen vom zusätzlicher Angabe von n Abstandpixel) 
Preferences werden wieder gesetzt) ESC [SF Text wird linksbündig gedruckt 

ESC #1 Drucker initialisieren (alle Einstellungen werden ESC [7F Text wird rechtsbündig gedruckt 
zurückgesetzt) ESC [6F Text wird in Blocksatz gedruckt 

ESCD Zeilenvorschub ESC [OF Zentrierung des Textes ausschalten 

ESCE Zeilenvorschub mit Wagenrücklauf ESC [8F Zeichenabstand in Pixel (hinter der 

ESC [0w Normale Zeichengröße (10 Zeichen pro Zoll) Steuersequenz angeben) 

ESC [2w Elite-Schrift ein (12 Zeichen pro Zoll) ESC [0z 118 Zoll Zeilenvorschub (8 Zeilen pro Zoll) 

ESC [iw Elite-Schrift aus (wieder auf vorher eingestellte ESC [1z 1/6 Zoll Zeilenvorschub (6 Zeilen pro Zoll) 
Zeichengröße zurückstellen) ESC [nt Seitenlänge auf n Zeilen festlegen 

ESC [4w ‚Schmalschrift ein (15 bis 20 Zeichen pro Zoll, je ESC [nq Perforation von Endlospaplier überspringen (es 
nach Drucker) werden am Seitenende n Leerzeilen eingefügt) 

ESC [3w Schmalschrift aus ESC [0q Perforationssprung aus 

ESC [ew Breitschrift ein (doppelte Zeichenbreite) ESC #9 Linken Rand setzen (Spaltennummer hinter der 

ESC [5w Breitschrift aus Steuersequenz angeben) 

ESC [6”z Schattenschrift ein ESC #0 Rechten Rand setzen (Spaltennummer hinter 

ESC [5"z Schattenschrift aus der Steuersequenz angeben) 

ESC [4"z Doppeldruck ein ESC #8 Oberen Rand setzen (Zeilenanzahl hinter 

ESC [3"z Doppeldruck aus Steuersequenz angeben) 

ESC [2"z NLO ein ESC #2 Unteren Rand setzen (letzte Zeilennummer 

ESC [1"z NLQ aus hinter Steuersequenz angeben) 

ESC [2v Hochstellung ein ESC #3 Ränder löschen 

ESC [iv Hochstellung aus ESCH Horizontalen Tabulator setzen (Tabulatorposition 

ESC [dv Tiefstellung ein hinter Steuersequenz angeben) 

ESC [3v Tiefstellung aus ESCJ Vertikalen Tabulator setzen (Tabulatorzeile 

ESC [ov Wieder Normalschrift (keine Hoch/Tiefstellung, hinter Steuersequenz angeben) 
etc.) ESC [0g Horizontale Tabulatoren löschen 

ESC (B US Zeichensatz einstellen ESC [3g ‚Alle horizontalen Tabulatoren löschen 

ESC (Rr Französischen Zeichensatz einstellen ESC [ig Vertikalen Tabulator löschen 

ESC (K Deutschen Zeichensatz einstellen ESC [4g ‚Alle vertikalen Tabulatoren löschen 

ESC (A Britischen Zeichensatz einstellen ESC #4 Alle horizontalen und vertikalen Tabulatoren 

ESC (E Dänischen Zeichensatz | einstellen löschen 


Tabelle 1. Alle wichtigen Steuersequenzen für das Printer-Device im Überblick 
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ders erscheinen als sie vorher auf dem Bildschirm zu sehen waren. 
Ohne den entsprechenden Druckertreiber ist man auch bei vielen 
Textverarbeitungen alleingelassen, und schon die kleinste Verän- 
derung des Schrifttyps verursacht Buchstabensalat beim Aus- 
druck. Dies kann auch dann vorkommen, wenn man beispielswei- 
se mit Hilfe des Hisoft-Basic-Compilers das Basic-Programm in 
Maschinensprache umsetzt. Zwar funktioniert dann in der Regel 
der LPRINT-Befehl, bei längeren und komplizierteren Program- 
men kam es jedoch auch schon vor, daß dies eine Fehlermeldung 
verursachte. Abhilfe schafft der folgende, zweite Lösungsweg. 

Nochmals zur Erinnerung: Der Vorteil des Printer-Devices war, 
daß sämtliche Steuersequenzen von einer gesonderten Routine 
automatisch in das richtige Format für den Drucker umgewandelt 
werden. Ist diese Routine nicht verfügbar, muB man auf einen an- 
deren Weg zurückgreifen. Fast alle Drucker werden am Parallelport 
angeschlossen. Daher liegt es nahe, die Daten direkt an diesen 
Port zu schicken, ohne Umweg über das Device. Dies ist mit dem 
logischen Gerät »PAR:« sehr einfach möglich. Hierzu muß im Ge- 
gensatz zu LPRINT ein Kanal geöffnet werden. Ein Beispiel: 

OPEN "PAR: ” FOR OUTPUT AS 1 

PRINT #1,"Dies ist ein Ausdruck direkt vom 

Parallelport” 
CLOSE 1 


Wenn Sie dieses Beispiel abtippen und starten, wird der gleiche 
‚Ausdruck entstehen wie über LPRINT. Versuchen Sie einmal das 
gleiche mit folgendem Listing: 

OPEN "PAR: ” FOR OUTPUT AS 1 

PRINT #1,”Dieser Text enthält deutsche 

Sonderzeichen: äöü ÄÖü 8” 

CLOSE 1 


Wie Sie sehen, werden die deutschen Sonderzeichen nicht rich- 
tig gedruckt. Das ist auch nicht weiter verwunderlich, weil die ent- 
sprechenden ASCIl-Codes direkt an die parallele Schnittstelle ge- 
sendet werden. Dieses Problem läßt sich aber mit einer kleinen 
Hilfsroutine leicht umgehen. Das Listing 1 ist eine Routine, mit de- 
ren Hilfe die Sonderzeichen richtig ausgedruckt werden können. 
Die entsprechenden Zeichen tauscht man dabei einfach gegen an- 
dere ASCII-Codes aus, welche auf Ihren Drucker abgestimmt sind, 
‚Am Anfang des Programms sollten Sie eine ASCII-Datei einlesen, 
in denen die entsprechenden Codes enthalten sind. Die Routine ist 
so programmiert, daß beliebig viele Zeichen korrigiert werden kön- 
nen. Die umzuwandelnden Zeichen müssen nur in die ASCII-Datei 
eingefügt werden, die automatisch nachgeladen wird. 

‚Auf diese Weise muß das das Programm nicht verändert werden, 
wenn ein anderer Drucker anzupassen ist. Für die Änderung brau- 
chen nur die Einträge in der ASCII-Datei verändert werden. 

Wie Sie die richtigen ASCII-Codes für Ihren Drucker ermitteln, 
sehen Sie in folgendem Listing: 

OPEN "PAR: ” FOR OUTPUT AS 1 

FOR 1=32 TO 255 

PRINT #1,1;” 

NEXT 

CLOSE 1 


";CHR$(i) 


Mit diesem Listing werden alle Zeichen des Druckers zusammen 
mit den entsprechenden Codes ausgedruckt. Sie müssen nur 
noch die deutschen Sonderzeichen mit den dazugehörigen Codes 
heraussuchen und in die ASCII-Datei eintragen. Im Listing wird da- 
von ausgegangen, daß diese Datei den Namen »Zeichen« hat und 
im gleichen Verzeichnis wie das Programm steht. Die Datei »Zei- 
chen« könnte folgendermaßen aussehen: 


Es wechseln immer Zeichen mit ASCII-Code ab, wobei der 
ASCII-Code immer den Code angibt, der für das vorhergehende 
Zeichen an den Drucker geschickt wird. In der obigen Beispieldatei 
würde also der ASCII-Code 126 für das »ä« gesendet werden. Sie 
können diese Datei beliebig verändern und auch Buchstaben an- 
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hängen. Es muß lediglich das Format eingehalten werden, daß ei- 
nem vorangehenden Buchstaben der zugehörige ASCII-Code 
folgt. Die Datei läßt sich mit einem beliebigen Editor bearbeiten. 
Auch die Reihenfolge der Einträge spielt keine Rolle. 

Um Steuersequenzen direkt über den Parallel-Port an den 
Drucker zu schicken, ist ein höherer Aufwand nötig als beim Arbei- 
ten mit dem Printer-Device. Die Steuersequenzen aus der Tabelle 
1 können nicht mehr verwendet werden. Statt dessen müssen Sie 
in Ihrem Druckerhandbuch nachschlagen, welche Sequenzen Ihr 
Drucker für die jeweiligen Einstellungen benötigt. Diese können je- 
doch direkt an die parallele Schnittstelle geschickt werden. 

Der Nachteil dieser Methode ist, daß die Steuerbefehle von 
Drucker zu Drucker differieren, so daß keine für alle Drucker kom- 
patible Programmierung möglich ist, 

Auch hier gibt es einen kleinen Trick. Lagern Sie die benötigten 
Steuersequenzen ebenfalls in eine ASCII-Datei aus, die vom Pro- 
gramm nachgeladen wird. So muß für die Verwendung eines ande- 
ren Druckers nur noch diese Datei angepaßt werden. 

Um die Festlegung dieser Steuersequenzen möglichst einfach 
zu gestalten, können Sie sich dazu auch ein kleines Hilfsprogramm 
programmieren, das nach den Steuersequenzen fragt und eine 
entsprechende Datei auf Diskette ablegt. Diese kann ohne Proble- 
me vom Hauptprogramm nachgeladen werden. 


Die richtige Wahl 


Jetzt können Sie zwischen zwei Drucker-Ansteuerungen wäh- 
len. Vorzuziehen ist aus Kompatibilitätsgründen immer die erste 
Version (über das Printer-Device). 

Mit der zweiten Version erhalten Sie die Möglichkeit, jeden belie- 
bigen Drucker anzusprechen, auch wenn Sie dazu keinen passen- 
den Druckertreiber besitzen. Der etwas größere Programmierauf- 
wand wird dadurch entschädigt, daß Sie auch diverse Zusatzfunk- 
tionen Ihres Druckers nutzen können. Schließlich sind Sie bei die- 
ser Art der Druckeransteuerung nicht auf die Standardsteuerse- 
quenzen beschränkt. Besonders bei den neueren Druckern, die 
auch Fontkarten unterstützen, stellen die Standardfunktionen häu- 
fig nicht die benötigten Funktionen zur Verfügung. kn 


Programmname: Print 
Computer: A500, A1000, A2000 mit Kickstart 
1.2& 13 


Sprache: Amiga-Basic 
Bemerkung: Siehe Text 


1, 
128echars2$+CHRS (asc1i) 


ehars1$,10op,1)) 
=NID$(chars28,100p,1) 


Listing 1. Mit diesem Pro- 
gramm können Sie Ihre eigene 
Druckeranpassung vollziehen 


#2,text$ 
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folgende Themen: 
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Ich möchte an der redaktionellen Gestaltung 
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Ich kann folgende(s) Programme) zur Veröffent- 
lichung anbieten: 


Dieses Problem habe ich: 


Machen S 
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Ich besitze einen 
A500 A1000 A2000 A2500 
mit 1 2 3 mehr Laufwerken 


mit einer Festplatte __ 

Ich verwende einen Drucker __ 

mit 9 Nadeln__ 24 Nadeln__ 
Zusätzlich besitze ich einen 

Cc64__ PC__ AtariST__ andere__ 


Diese Note (1 bis 6, 1 am besten) gebe ich dem 


AMIGA-Sonderheft: __ 
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Hans-Pinsel-Straße 2 

8013 Haar b. München 
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Schreiben Sie uns! 


K NOW-HOW 


Copper-Programmierung in Basic 


Verblüffende Effekte 


Faszinierende Farbspielereien und ver- 
rückte Screens - meist ist dafür ein Baustein 
des Amigas verantwortlich. Wir zeigen 
Ihnen anhand von zwei Beispielen, wie Sie 
den Copper mit Basic programmieren. 


Von Amir R. Amir und Martin Höfler 


chip Agnus, welcher für die Steuerung der 25 DMA-Kanäle 
(Direct Memory Access = Direkter Speicherzugriff) des 
Computers zuständig Ist. Der Copper ist kein mathematischer Co- 
Prozessor, sondern für den Bildschirmaufbau und die Steuerung 
des Elektronenstrahls verantwortlich. So ermöglicht er beispiels- 
weise das Herunterschieben von Screens. Einer der Vorteile des 
Coppers besteht darin, daß er die Zentraleinheit 68000er für den 
Speicherzugriff nicht benötigt, und daher das System in der Ge- 
schwindigkeit kaum behindert. Diese Eigenschaft des Coprozes- 
sors ist für Basic-Programmierer interessant, da das Basic-Pro- 
gramm ohne Geschwindigkeitsverlust weiterarbeiten kann, wäh- 
rend der Copper verblüffende Effekte auf den Bildschirm zaubert. 
Obwohl der Copper eine Vielfalt von Anwendungsgebieten auf- 
weist, werden wir uns auf Farbeffekte beschränken, denn sie stel- 
len eine großartige Erweiterung der Basic-Möglichkeiten dar. Alle 
anderen Anwendungen, wie beispielsweise die vielfache Darstel- 
lung eines Sprites, rechtfertigen den dazu nötigen Arbeitsaufwand 
nicht. Außerdem würde die dafür notwendige Theorie den Rahmen 
dieses Artikels sprengen. 


y4 usammen mit dem Blitter bildet der Copper den Custom- 


Die Befehle des Coppers 


Da der Copper wie gesagt ein Prozessor ist, benötigt er ein Pro- 
gramm, das er sukzessive abarbeiten kann, um für eine bestimmte 
‚Aufgabe eingesetzt werden zu können. So ein Programm für den 
Copper nennt man im Fachjargon Copperliste. Der Befehlssatz ist 
ziemlich klein - er umfaßt nur drei Befehle. 


1. MOVE 
Diese Anweisung schreibt einen Wert in ein Register eines Cu- 
stomchips. 


2. WAIT 

Dieser Befehl hält die Abarbeitung der Copperliste so lange auf, 
bis der Elektronenstrahl eine bestimmte, vom Programmierer an- 
gegebene Bildschirmposition erreicht hat. 
3. SKIP 

Durch die SKIP-Anweisung wird die auf diesen Befehl folgende 


‚Anweisung übersprungen, wenn der Elektronenstrahl die angege- 
bene Bildschirmposition erreicht oder überschritten hat. SKIP er- 
laubt also die Programmierung von bedingten Verzweigungen. 

Diese Befehle stehen im Endeffekt als Zahlen hintereinander in 
der Copperliste. Jedoch sind diese Zahlen in einer sinnvollen Zu- 
sammenstellung mit den Parametern für die Befehle recht kompli- 
ziert zu berechnen, denn es haben in ihnen alle Bits eine spezielle 
Bedeutung. Leichter ist die Erstellung eines Copper-Programms 
mit Hilfe der von der Graphics-Library zur Verfügung gestellten 
Routinen. 

Die erste Library-Routine, die wir behandeln wollen, Ist»CMove&«, 
welche einen MOVE-Befehl in eine Copperliste einträgt, der einen 
angegebenen Wert in ein angegebenes Register schreibt: 
CMove& CopperList&,Register%,Wert% 


Der Parameter »CopperList&« ist die Anfangsadresse der im 
Chip-RAM abgelegten Copperliste, Wir erhalten sie durch eine ent- 
sprechende Speicherplatzreservierung. 

»Register%« ist die Adresse eines Customchip-Registers, in das 
der gewünschte Wert hineingeschrieben werden soll. Da die Basis- 
adresse der Customchips hexadezimal $DFF000 (entspricht dezi- 
mal 14675968) beträgt, ist es notwendig, in »Register%« lediglich 
den Offset des Registers in bezug auf diese Basisadresse anzuge- 
ben. Für den Basic-Programmierer sind nur wenige Register wirk- 
lich interessant, da alle anderen entweder unter bestimmten Vor- 
aussetzungen ansprechbar sind, oder keine brauchbaren Verän- 
derungen hervorrufen. Wie schon erwähnt, werden wir uns auf die 
Manipulierung der Farbregister beschränken, welche bei Offset 
+384 beginnen. Für das Farbregister 0 (Hintergrundfarbe) ist bei 
»Register%« der Wert 384 anzugeben. Die Offsets aller Farbregi- 
ster lassen sich durch folgende Formel berechnen: 

Offset = (Farbregister x 2) + 384 

Jetzt bleibt noch der Parameter »Wert%« zu erklären. Dies ist 
schnell geschehen, weil er jener Wert ist, der in das angegebene 
Register geschrieben werden soll, 

Bei Farben stellt man den Wert am besten hexadezimal dar. Sei- 
ne vier Stellen haben dann folgende Bedeutung: ORGB 

‚Ab der zweiten Stelle hat jede Ziffer einen Wert von $0 bis $F 
bzw. 0 bis 15. Dieser Wert steht für die Intensität jeder einzelnen 
Farbkomponente. 

Nun zur nächsten Graphios-Library-Routine: CWait& 

‚Auch hier ist offensichtlich, welchem Copper-Kommandbo sie ent- 
spricht: 

CWait& CopperList&,YPos%,XPos% 


»CopperList&« ist auch hier die Anfangsadresse der eigenen 
Copperliste. 

»YPos%« und »XPos%« geben jene Bildschirmposition an, die 
der Rasterstrahl erreichen muß, ehe das Copper-Programm mit 
dem nächsten Befehl fortgesetzt wird. Beachten Sie dabei: 


Listing 1. Demoprogramm zum Einschalten einer neuen Copperliste 
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Die Y-Positionen erstrecken sich von -12 bis 270. Für den sicht- 
baren Bereich ergeben sich damit rund 280 Zeilen. Will man den 
Interlace-Modus verwenden, also die vertikale Auflösung verdop- 
peln, so ist es notwendig, zwei Copperlisten zu erstellen - für jedes 
Halbbild eine. 

In Basic dürfte sich dies allerdings zu aufwendig gestalten, weil 
die eine Liste auf die andere zeigen müßte und umgekehrt. Für die 
horizontale Positionsangabe gibt es einige Einschränkungen: 

Man kann den Copper nur alle vier Punkte (in Hires alle acht) an- 
halten lassen, was praktisch 113 möglichen, horizontalen Positio- 
nen entspricht. Die Werte, die man daher in »XPos%« einsetzen 
kann, bewegen sich zwischen Null und 256 (113 für Lores). Die er- 
ste sichtbare X-Position liegt allerdings erst bei Wert 20. 

Eigentlich hat, wie schon besprochen, der Copper noch einen 
dritten Befehl - die Anweisung SKIP. Dieser Befehl wird nur sehr 
selten benutzt und daher durch die Graphics-Library nicht miteiner 
eigenen Routine unterstützt. 

Dafür gibt es eine andere Routine, die für die Erstellung einer 
Copperliste unerläßlich ist: CBump& 

Sie erhöht einen internen Zeiger der Copperliste in der Art, daß 
ein Befehl hinter den anderen geschrieben wird und nicht den alten 
überschreibt. Die Routine ist daher nach jedem »CMove&« bzw. 
»CWait&« aufzurufen: 

CBump& CopperList& 

Lassen Sie uns das erworbene Wissen in die Praxis umsetzen. 
‚Als Beispiel wollen wir den Bildschirm vertikal in zwei Hälften tei- 
len, die sich durch ihre Hintergrundfarbe unterscheiden sollen. Bit- 
te beachten Sie: 

Obwohl der Hintergrund ab einer bestimmten Bildschirmposition 
eine andere Farbe hat, handelt es sich immer noch um das Farbre- 
gister mit der Nummer 0. Dieses wird lediglich vom Copper abhän- 
gig von der Bildschirmposition auf einen anderen Wert gesetzt. 
Nachdem die Copperliste initialisiert ist, braucht sich das Basic- 
Programm darum nicht mehr zu kümmern. 

Die Änderung der Hintergrundfarbe wird im Beispielprogramm 2 
(Listing 2) gezeigt. Wir wollen zunächst sehr einfach beginnen und 
nur ab Zeile 100 die Vordergrundfarbe auf Schwarz setzen. Daher 
müssen wir in die Copperliste eine WAIT-Anweisung eintragen, die 
auf die Position 0,100 wartet, und dann mit MOVE den Wert $0000. 
in das Farbregister 1 (Offset +386) schreiben. 

Den Abschluß jeder Copperliste bildet eine WAIT-Anweisung auf 
eine unerreichbare Position. Ein Beispiel: 

X = 255, Y = 1000 


Da der Rasterstrahl sicherlich nie an diesem Punkt vorbeikom- 
men wird, springt auch der Copper zum Anfang seines Pro- 
gramms, sobald der Elektronenstrahl beginnt, den Bildschirm neu 
aufzubauen (dies geschieht 50mal in der Sekunde). 

Wie man die neue Copperliste einschaltet, und die Erstellung in 
der Praxis realisiert, entnehmen Sie bitte Listing 1. 

Durch die Verwendung der SUB-Programme ergibt sich eine 


Gopperstarten: 


a ee” SEGEL TREE DEREN NEE Er an 


Listing 2. Waagrechte Farbänderungen bringen beeindruckende Effekte 


große Arbeitsersparnis, denn man muß nicht für jeden Befehl alle 
notwendigen Schritte unternehmen, sondern kann die SUB-Pro- 
gramme direkt als neue Basic-Befehle verwenden. So können Sie 
äußerst einfach eine Copperliste erstellen. Die fünf neuen Befehle: 


1. InitCopperList BefehlsAnz% 

Diese Anweisung reserviert einen für die Copperliste ausrei- 
chend großen Speicherbereich im Chip-RAM. Wie groß dieser ist, 
hängt vom angegebenen Parameter ab, nämlich der Anzahl der 
Befehle des Copper-Programms. Für die Berechnung der Anzahl 
gilt: 

Pro gewünschte Farbänderung zwei Befehle. 

2. CopMove Offset%,Wert% 

Trägt in die Copperliste einen MOVE-Befehl mit den angegebe- 

nen Parametern ein und führt automatisch ein CBump& aus. 


3. CopWait Y%,X% 

Diese Anweisung trägt in die Copperliste einen WAIT-Befehl mit 
den angegebenen Parametern ein und führt anschließend automa- 
tisch ein CBump& durch. 


4. CopperStart Win& 

Versieht die Copperliste mit einem geeigneten Abschluß (Warten 
auf unmögliche Position), und weist dem angegebenen Window 
die neue Copperliste zu. 


5. CopperReset Win& 
Stellt die ursprüngliche Copperliste wieder her und gibt den zu- 
vor reservierten Speicherbereich wieder frei. 


Hinweis: Zu beachten ist, daß die Variablen »CopperList&« und 
»CopperRemKey&« durch das Hauptprogramm nicht verändert wer- 


den dürfen, da sie in mehreren SUB-Programmen benötigt werden 
und daher mit SHARED als globale Variablen definiert sind. 


Im ersten Beispielprogramm wurde der Bildschirm waagrecht in 
zwei Teile geteilt. Dies ließ sich mit nur einer WAIT-Anweisung be- 
werkstelligen. Komplizierter wird die Sache, wenn eine senkrechte 
Teilung erwünscht ist. Dann müssen für jede Zeile zwei WAIT-An- 
weisungen gesetzt werden -eine am Anfang der Zeile, und eine am 
Teilungspunkt (bzw. mehrere, wenn Sie mehrere Streifen kreiern 
möchten). Am Zeilenanfang muß eine WAIT-Anweisung stehen, 
weil dort die Farbe des Endes der vorigen Zeile übernommen wird 
und man daher mit MOVE wieder die gewünschte Farbe einstellen 
muß. Sie sehen, daß die Copperliste dadurch umfangreicher wird 
und sich die Wartezeit beim Erstellen merklich verlängert. 

Im Listing 2 sehen Sie, wie man durch oftmalige waagrechte 
Farbänderung beeindruckende Effekte erzielen kann. Überdies 
wurde eine senkrechte Farbtrennung bzw. -unterteilung realisiert. 

‚Amir R. Amir/Martin Höfler/lag 


Uteraturhinweis: Amir/Höfler, Amiga-Basic für Profis, Markt & Technik Verlag AG, Bestell-Nr. 90710 
(ISBN 3-89090-710-5), 573 Seiten, Preis 79 Mark 


58 ww. HOMESOMPUTERWORLS.COM 


AMIGA-SONDERHEFT 10 / 


Know-How 


Hardware-Sprites in Basic programmieren 


Rasende Sprites 


Sie sind die schnellsten, die Hardware- 
Sprites. Die Coprozessoren verwaltet sie 
völlig selbständig. Aber der Basic-Inter- 
preter unterstützt diese begehrten Sprites 
kaum. Wie sie zu programmieren sind, er- 
fahren Sie hier. 


Von Amir R. Amir und Martin Höfler 


rundsätzlich stehen dem Amiga-Programmierer zwei Ar- 

ten von Sprites zur Verfügung: »Hardware-Sprites« und 

»VSprites«, Erstere verdanken ihren Namen dem Um- 
stand, daß sie durch Programmierung der Hardware erzeugt wer- 
den. Die dafür zuständige Hardware ist der Customchip »Denise«. 
Der korrekte Name des Chips lautet allerdings »Display Encoder«. 
Dieser setzt im RAM gespeicherte Daten in ein Bild um, Dazu ver- 
wendet Denise pro Sprite einen der acht dafür vorgesehenen DMA- 
Kanäle. Daraus ist ersichtlich, daß maximal acht Hardware-Sprites 
gleichzeitig auf dem Bildschirm darstellbar sind, 

Die Programmierung der Hardware-Sprites gestaltet sich relativ. 
einfach, da die Graphics-Library hierfür Systemroutinen bereit- 
stellt. Daraus resultiert auch der Beiname »Simple-Sprites«. Der 
Basic-Befehlssatz sieht die direkte Programmierung der Hard- 
ware-Sprites nicht vor, Deshalb wollen wir uns in diesem Artikel 
auch noch ausführlich damit beschäftigen. 

Die zweite Art von Sprites sind die »virtuellen Sprites« - oben 
»VSprites« genannt, Diese werden durch die System-Software kon- 
trolliert, wodurch sie In bezug auf bestimmte Anwendungen, wie 
etwa Kollisionserkennung, Bewegungsabläufe etc. leistungsfähi- 
ger und bedienungsfreundlicher sind. Die System-Software bietet 
sogar die Möglichkeit, ein und denselben DMA-Kanal pro Bild- 
schirmaufbau mehrmals zu verwenden. Das heißt: Jedem Sprite- 
Kanalkönnen mehrere Images zugeordnet werden, die dann mit ei- 
nem vertikalen Mindestabstand von einem Pixel untereinander 
darstellbar sind. Mit VSprites sind Sie sicherlich schon vertraut, 
denn die OBJECT-Befehle von Amiga-Basic unterstützen diese 
Sorte von Sprites. 

Kommen wir zurück zu den Hardware-Sprites. Wie nutzt man 
diese? Wie eingangs erwähnt, bietet die Graphics-Library einige 
Systemroutinen zur Steuerung dieser Grafikelemente: 

- GetSprite& 

- FreeSprite& 

- ChangeSprite& 
- MoveSprite& 

Als erstes beschäftigen wir uns mit der Routine »GetSprite&«. 
Sie wird verwendet, um einem Sprite einen DMA-Kanal zuzuwei- 
sen. Ein Nebeneffekt von GetSprite& ist, daß das definierte Sprite 
für das eigene Programm reserviert wird. Ein anderes Programm 
hat also keinerlei Zugriff auf dieses Sprite bzw. auf diesen Spriteka- 
nal, solange er nicht durch Verwendung der Routine »FreeSprite&« 
abgemeldet wird. Der Aufruf von »GetSprite&« lautet: 


Simple-Sprite-Struktur 


Name Bemerkung 


PosCtIData 
Height 
XPos 
YPos 

Num 


Vom System benötigt 
Höhe des Sprites 
X-Position des Sprites 
Y-Position des Sprites 
Spritenummer 


Tabelle 1. Die Struktur eines Hardware-Sprites, auch 
Simple-Sprite-Struktur genannt 
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SpriteNr% = GetSprite& (Memory&,Nummer%) 


Die Funktion liefert einen Wert an das Basic-Programm zurück 
- in unserem Fall mit der Variablen »SpriteNr%«. Dieses Ergebnis 
stellt den tatsächlich reservierten Sprite-DMA-Kanal dar. Ist es -1, 
so konnte kein Kanal zugewiesen werden. 

Mit der Variablen »Nummer%« kann der Benutzer dem System 
mitteilen, welches der acht Sprites (Nummer 0-7) er beansprucht, 
Gibt man hier -1 an, so weist das System dem Programmierer selb- 
ständig einen im Augenblick freien Kanal zu (seine Nummer steht 
dann in »SpriteNr%«). Eine fehlgeschlagene Reservierung 
(SpriteNr% = -1) bedeutet also entweder, daß kein DMA-Kanal 
mehr frei war, oder daß der angeforderte Kanal bereits belegt war. 

Der Parameter »Memory&« ist die Speicheradresse, an der eine 
Liste von Werten steht, die zur Beschreibung unseres Sprites not- 
wendig sind. Solch eine Datenliste nennt man eine Struktur - Im 
speziellen Fall des Hardware-Sprites: Simple-Sprite-Struktur. Sie 
enthält einige Definitionsparameter in einer vom System vorge- 
schriebenen Reihenfolge. 

Der Programmierer muß also eine Simple-Sprite-Struktur erstel- 
len und deren Anfangsadresse über die Variable »Memory&« an 


User-Sprite-Data-Struktur 


Name Offset 


Bemerkung 


Posctl 
Poscti 
SprData 
SprData 
SprData 
SprData 


+12 
+14 
+16 
+18 
+20 
+22 


Für komplexere Anwendungen 
Für komplexere Anwendungen 
1. Zeile der 1. Bitplane 
1. Zeile der 2, Bitplane 
2. Zelle der 1. Bitplane 
2. Zeile der 2. Bitplane 


Letzte Zeile der 1. Bitplane 
Letzte Zeile der 2. Bitplane 
Vom System benötigt 
Vom System bendtigt 


SprData 
SprData 

Reserved 
Reserved 


Tabelle 2. Die User-Sprite-Data-Struktur bestimmt das 
Aussehen des Sprites 


»GetSprite&« übergeben, um einen Sprite-DMA-Kanal für seine 
Anwendung zu reservieren. 

In Tabelle 1 finden Sie den Aufbau der Simple-Sprite-Struktur. 
Um eine Struktur dieser Art in Basic zu erstellen, müssen Sie die 
Definitionsparameter in einen zuvor reservierten Speicherbereich 
(siehe auch Listings 1 bis 3) POKEn. 

Vielleicht ist Ihnen aufgefallen, daß in der Struktur keinerlei An- 
gaben über die Breite des Sprites zu finden sind. Es liegt daran, 
daß ein Hardware-Sprite stets 16 Pixel (Lores-Auflösung) breit ist. 

Bisher haben wir noch nicht das Aussehen des Sprites definiert. 
Mit Hilfe der User-Sprite-Data-Struktur wird es festgelegt. Um nicht 
erneut einen Speicherbereich reservieren zu müssen, hängen wir 
die User-Sprite-Data-Struktur gleich an die Simple-Sprite-Struktur 
an. Sie beginnt dann bei dem Offset »+12«. Den Aufbau der User- 
Sprite-Data-Struktur entnehmen Sie der Tabelle 2. 

Für unser Sprite-Beispiel wählen wir ein Aussehen entspre- 
chend der Tabelle 3. (Wir wollen an dieser Stelle nicht genauer auf 
den Aufbau, die Darstellung etc. von Bitplanes eingehen - siehe 
daher Literaturverweis am Schluß dieses Artikels). Die individuell 
gewählten Werte aus Tabelle 3 müssen in der User-Sprite-Data- 
Struktur berücksichtigt werden. 

Die Farben des Sprites kommen zustande, indem die Bitplanes 
vom Rechner aufeinandergelegt werden und dann das Farbregi- 
ster aus der Kombination zweier übereinanderliegender Bits be- 
rechnet wird. Welche Farben sich daraus ergeben, sehen Sie sich 
am besten anhand des Beispielprogrammes an. 
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Jeweils zwei Sprites müssen sich drei Farbregister teilen. Drei 
Farbregister deshalb, weil die Register 16, 20, 24 und 28 bei Ver- 
wendung eines Sprites auf dem Bildschirm transparent erschei- 
nen. Die zugehörige Bitkombination ist 00, also in beiden Bitplanes 
eine 0. Wie die Sprites auf die Farbregister aufgeteilt sind, entneh- 
men Sie der Tabelle 4. 

Die User-Sprite-Data-Struktur ist nun komplett erklärt und wir 
müssen die erstellte Liste an eine Systemroutine übergeben, die 
das Sprite sichtbar macht. Bei dieser Routine handelt es sich um 
»ChangeSprite&«, die folgenden Aufruf hat: 


ChangeSpritek ViewPort&,Memory&,NewData& 


Zeilen-Nr. Bitplane Hex-Wert 

Bitplane 1: 

Zeile 1: 0000001111011110 | 

Zeile 2: 0000001111011110 

Zeile 3: 0000001111011110 

Zeile 4: 0000001111011110 

Zeile 5: 0000001111011110 

Zeile 6: 0000001111011110 

Zeile 7: 0000001111011110 

Zeile 8: 0000001111011110 

Zeile 9: 0000001111011110 

Bitplane 2: 

Zeile 1: 0111100000011110 

Zeile 2: 0111100000011110 

Zeile 3: 0111100000011110 

Zeile 4: 0111100000011110 

Zeile 5: 0111100000011110 

Zeile 6: 0111100000011110 

Zeile 7: 0111100000011110 

Zeile 8: 0111100000011110 

Zeile 9: 0111100000011110 = $781E 
Tabelle 3. Die hier gewählten Bitplane-Werte müssen in der 
User-Sprite-Data-Struktur berücksichtigt werden 

Sprites Farbregister 

‚Sprite 0 und 1 Farbe 17 bis 19 

Sprite 2 und 3 Farbe 21 bis 23 

Sprite 4 und 5 Farbe 25 bis 27 

Sprite 6 und 7 Farbe 29 bis 31 


Tabelle 4. So werden die Farbregister den Sprites zugeteilt 


Zu den einzelnen Parametern; Falls das Sprite nicht im aktuellen 
ViewPort erscheinen soll, so ist die Variable »ViewPort&« mit des- 
sen Adresse zu belegen. Andernfalls kann man einfach eine »O«an- 
geben. »Memory&« ist wie schon bei »GetSprite&« die Anfangs- 
adresse der Simple-Sprite-Struktur. Bei »NewData&« handelt es 
sich um die Anfangsadresse der User-Sprite-Data-Struktur, die in 
unserem Falle an »Memory&+12« beginnt. 

Mit der ChangeSprite&-Routine kann man sehr leicht Animation 
realisieren, indem man ein und demselben Sprite in schneller Ab- 
folge verschiedene Images zuweist. 

Eine der wichtigsten Eigenschaften der Sprites sind schnelle 
und flüssige Bewegungen. Man kann sie an jede beliebige Bild- 
schirmposition setzen, ohne den Hintergrund zu verändern. Zur 
Positionierung der Hardware-Sprites dient die Routine »Move- 
Sprite&«: 

MoveSprite& ViewPort&,Memory&,XPos%,YPos% 

Mit »ViewPort&« übergibt man der Routine den ViewPort, in dem 
das Sprite verwendet wird. Für den aktuellen ViewPort ist wieder 
»0« anzugeben. Auch »Memory&« hat die gleiche Bedeutung wie 
bisher. Die für das Sprite gewünschte Position übergibt man in den 
Variablen »XPos%« und »YPos%«. Sie beziehen sich auf den lin- 
ken oberen Rand des Screens, in dem das Sprite liegt. 

Allerdings gibt es eine Einschränkung: Bei hoher Auflösung des 
Screens kann man Sprites horizontal nur aufjedes zweite Pixel set- 
zen - bei Interlace gilt das gleiche für die vertikale Positionierung. 
Das Sprite kann nur 320 x 256 verschiedene Positionen am Bild- 
schirm einnehmen, egal welche Auflösung der Hintergrund hat. 
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Die Priorität der Hardware-Sprites - also welches Sprite welches 
überlappt bzw. dahinter verschwindet - ist folgendermaßen festge- 
legt: Sprite 0 ist stets das vorderste, Sprite 7 ist immer das hinterste 
und die zwischenliegenden reihen sich nach steigender Nummer 
hintereinander. 

Die letzte, noch nicht behandelte Routine ist »FresSprite&«. Sie 
gibt einen reservierten DMA-Kanal wieder frei: 


FreeSprite& SpriteNr% 


Die Bedeutung von »SpriteNr%« dürfte klar sein. Jetzt sind die 
Voraussetzungen für ein Beispielprogramm geschaffen (Listing 1): 
Es demonstriert die Anwendung aller vorgestellten Routinen: 


2 Worte reservieren 
STEP 2 


" 2 Worte 


HO3DE, A4781E, 
&HO3DE, 
HOSDE, 


eigehien 
7 freigeben 


Listing 1. 
Jedes Sprite hat 
seine Nummer 


Wie Sie sehen, stimmt die Position der gezeichneten Punkte 
nicht mit der linken, oberen Ecke des Sprites überein. Das liegt dar- 
an, daß sich die Position des Sprites auf die linke, obere Ecke des 
Screens bezieht, und die Punkte bezüglich des Fensters gesetzt 
werden. Allerdings sind die Basic-Windows durchweg »GimmeZe- 
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roZero-Windows«. Das bedeutet, die Koordinaten 0,0 liegen nicht in 
der Titelleiste der Fenster, sondern innerhalb der Umrandung. 
Schiebt man das Basic-Output-Fenster nach unten, so wird dieser 
Unterschied noch deutlicher sichtbar. 

Multicolor-Sprites 

Für viele Anwendungen ist ein Sprite mit (nur) vier Farben (bzw. 
drei plus transparent), wie wir es gerade erstellt haben, durchaus 
ausreichend. Manchmal ist es allerdings wünschenswert, über ei- 
ne umfangreichere Farbpalette zu verfügen. Besonders für Spiele 
mit detailreicher und farbenprächtiger Grafik wirken vierfarbige 
Sprites eintönig. 

Was liegt also näher, als dem Programmierer die Möglichkeit ein- 
zuräumen, wesentlich mehr Farben pro Sprite verwenden zu kön- 
nen. Leider muß er dafür Einbußen bei der Spriteanzahl in Kauf 
nehmen. 

Auf dem Amiga ist das folgendermaßen realisierbar: Ein Sprite- 
paar (Nummer 0+1 oder 2+3 etc.) läßt sich zu einem Grafikelement 
verbinden. Auf diese Weise entsteht das »Multicolor-Sprite« mit ei- 
ner maximalen Farbanzahl von 16 frei definierbaren Farben. Die 16 
Farben sind möglich, da nun zwei Sprites übereinanderliegen - 
also insgesamt vier Bitplanes für die Farbgebung zur Verfügung 
stehen (Zur Erinnerung: 2 hoch Bitplaneanzahl = Farbanzahl). Die 
Benuizıen Farbregister sind alle von Nummer 16 bis einschließ- 

ich 91. 

Bei der Erstellung des Sprite-Images geht man so vor, als würde 
man tatsächlich nur ein Sprite mit vier Bitplanes entwerfen. An- 
schließend reserviert man zwei zugehörige Spritekanäle mit »Get- 
Sprite&« (es sind daher auch zwei Simple-Sprite-Strukturen nötig). 
Man teilt die Bitplanes so auf die beiden Sprites auf, daß das Sprite 
mit der geraden Nummer (z.B. Nr. 2) die ersten beiden Planes er- 
hält, und jenes mit der ungeraden Nummer (für unser Beispielmuß 
es jetzt Nr. 3 sein) die restlichen zwei. 

Weiter Ist dem System durch Setzen eines Bits mitzuteilen, daß 
es sich um ein Multicolor-Sprite handelt, Es handelt sich um das 
sog. Attach-Bit, welches man im zweiten Wort der User-Sprite- 
Data-Struktur des Sprites mit der ungeraden Nummer findet. Es ist 
dort das 7. Bit und wird daher durch den Wert von 128 gesetzt. Den 
Wert trägt man direkt in die entsprechende DATA-Zeilen unseres 
Programms ein. 

Ist das Multicolor-Sprite einmal definiert, kann man es mit nur ei- 
nem MoveSprite&-Befehl steuern - ungeachtet der Tatsache, daß 
es in Wirklichkeit zwei Sprites sind. Falls Sie trotzdem beide posi- 
tionieren wollen, sollten Sie bedenken, daß schon bei einem Posi- 
tionsunterschied von nur einem Pixel keine korrekte Darstellung 
des Sprites mehr möglich ist. 

»MoveSprite&« ist allerdings die einzige der vier Sprite-Anwei- 
sungen, die sich, falls nicht anders gewünscht, automatisch auf 
beide Sprites bezieht. Bei allen anderen müssen Sie beide Teile 
des Multicolor-Sprites getrennt behandeln. 

Wie beim ersten Beispielprogramm haben wir auch beim zwei- 
ten Beispielprogramm (Listing 2) auf die Ästhetik des Sprites kein 
besonderes Augenmerk gelegt, sondern vielmehr darauf geachtet, 
Ihnen alle Farbkombinationen möglichst übersichtlich zu zeigen: 


! HARDWARE-SPRITES IN BASIC 
' Beispielprogramm 2 (Listing 2) 


DEOLARE FUNCTION Allockemenber& LIBRARY 
DEOLARE FUNCTION GetSprite& LIBRARY 
LIBRARY "graphios. library” 

LIBRARY "Intultion.Library” 


ON BREAK GOSUB Dummy 
BREAK ON 


SpeicherReservieren: 
Renenber&=O 

Remenberkey&=VARPTR(Remenber&) 
Menoryl&=Allochemenber& (Remenberkey&,250&,65538) 
IF Memory14=0 THEN FreeRemenber& Renenberkey&,- 


SinpleSpriteiStruktur: 
POKEL Memoryik,0 ' PosctiDete 
POKEN Memorylk+4,15  ' Hoshe 
POKEW Menory1k+6,0 " X-Pos 


Y-Pos: 


POKEN Nemory1d+8,100 
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Kı NOW-HOW 


ite 2 veservieren 


Ty2SeMenory14+80 


SinpleSprite2Struktur: 
" PosctlData 
" Hoehe 
" X-Position 
" Y-Position 
" Sprite 3 reservieren 


? Henory2i+offsetä,Dat 
NEXT 
Spritellnage: 

0,0 

415555,843333, 815555,443333, 645559, 43333 
A 415555,843335, 645555, 443333, 8H5559,843333 
4#5555, 413333, 815555,413333, 645555, 43333 
4#5555,413333, &15555,443333, 845559, 43333 
4#5555,843333, &15955,443333, 615555, 443333 
0,0 


WHOFOF,AHOOFF, ANOFOF, SHOOFF, &HOFOF, AHOOFF 
'A BHOFOR,SHOOFF, &HOFOF,ÄHOOFF, BHOFOF, LHOOFF 
OR„SHOOFF, BHOFOF, LHOOFF, LHOFOF,EHOOFF 
OF ,SHOOFF, &HOFOF,EHOOFF, EHOFOR ,BHOOFF 
DATA SHOFOF,&HOOFF, SHOFOF,BHOOFF, BHOFOR,&HOOFF 
DATA 0,0 


leife: 
stendruck beendet das Progrann.” 


INKEYS="" 
xSextıe 

x6>304 THEN ae-1 

x3<0 pet 
YS«SIN(x8/10)*30+100 
reSpritek O,Nenorylä,xg,yk 
PSET (x8#2,y8) ‚1a 


' Sprite 2 freigeben 
' Sprite 3 freigeben 
* Speicher freigeben 


Listing 2. 
Color-Sprite- 


Demo 


Der Mauspfeil 

Nun wollen wir uns einem besonderen Hardware-Sprite zuwen- 
den, dem Mauspfeil. Er ist das Sprite O und kann mit den bisher be- 
sprochenen Systemroutinen nicht dauerhaft verändert werden. 
Probieren Sie einmal, beim ersten Beispielprogramm für die Spri- 
tenummer eine 0 einzusetzen. Sie werden sehen, daß sich das 
Sprite zwar auf das neue Aussehen ändert, es aber beijeder Bewe- 
gung der Maus die ursprüngliche Gestalt annimmt. Der Grund: In- 
tuition überwacht das Sprite 0 und sorgt für seine korrekte Darstel- 
lung. Daher kann man nicht einfach das Image des Pfeils verän- 
dern, ohne eine dafür vorgesehene Routine zu verwenden. Diese 
befindet sich in der Intuition-Library und heißt »SetPointer&«: 
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SetPointer& Win&,SpriteData&,Hoehe#,Breite#, 
Xoffset#,YOffset% 


Die einzelnen Parameter: Bei »Win&« handelt es sich um einen 
Zeiger auf das Window, für welches das Aussehen des Mauspfeils 
verändert werden soll. Für Basic-Fenster erhält man diese Adresse 
mit der Funktion WINDOW(7). 

Der Zeiger »SpriteData&« zeigt auf die unsschon bekannte User- 
Sprite-Data-Struktur. »Hoehe%« und »Breite%« geben die Ausma- 
Be des Images an, wobei zu beachten ist, daß eine Breite von mehr 
als 16 Pixel nicht zulässig ist. 

Den Abschluß bilden die Werte für den Offset der sensitiven Stel- 
le des Mauspfeils. Es handelt sich dabei um den sog, »Hot Spot«, 
der die für das Schließen von Windows etc. ausschlaggebende Po- 
sition des Pfeils darstellt. Die Offsets sind praktisch die Entfernun- 
gen des Hot Spots vom linken bzw. oberen Rand des Images und 
müssen negative Vorzeichen tragen. 

Um das ursprüngliche Aussehen das Mauspfeils wieder zu er- 
halten, existiert eine weitere Systemroutine: 


ClearPointer& Win& 


»Win&«st hier ebenfalls ein Zeiger auf das Window, welches den 
Default-Pointer erhalten soll. Dieser ist, wie Sie wahrscheinlich wis- 
sen, mit Preferences veränderbar und auf der Workbench-Diskette 
gespeichert. 

Zur Verdeutlichung lesen Sie bitte Listing 3. 

‚Abschließend noch ein paar Hinweise: Die Erstellung von Sprite- 
Images gestaltet sich leider umständlich, da es nicht leicht ist, eine 
Vorstellung über das Aussehen des Images zu erhalten, wenn man 
es nur auf dem Papier entwirft. Ebenso ist der Bitplane-Aufbau 
kompliziert, wenn es darum geht, Punkte in bestimmten Farben 
darzustellen. Wer schon einmal Images erstellt hat, der kennt si- 
cher folgende Erfahrung: Nach mühevoller Kleinarbeit fällt das fer- 
tige Sprite im Programm nicht zur vollen Zufriedenheit aus. Diese 
Enttäuschungen können Sie sich ersparen, wenn Sie für diesen 
Zweck die dafür vorgesehenen Konvertierungsprogramme ver- 

. wenden, die in der Lage sind, IFF-Pinsel in fertige Sprite-Image- 
Daten umzuwandeln. Sie können Ihr Sprite direkt mit einem Zei- 
chenprogramm erstellen und durch das Konvertierungsprogramm 
eine DATA-Zeilen-Liste anfertigen, welche Sie dann in Ihr Pro- 
gramm übernehmen können. Solche Programme finden Sie auch 


" HARDWARE-SPRITES IN 
! Beispielprogramn 3 (Li: 


Dec! 


LIBRARY "int 


Nenoryktöffsetk,Dat 
NEXT 
POKEL MenoryE+64,0 


Spritelmage: 


DATA 
DATA 
DATA 810000, 40100, 840100, 
DATA 810100, 840000, &40000, 850100, 840100, 240000 


Einschalten: 


LIBRARY CLOSE 
END 


RemenberKeyk,-1 : END 


' 2 Worte reservieren 


' 2 Worte reservieren 


#0100,240000, 340000, ##10100, &H0100, &40000 
10000,2510100, 840100, 340000, 540000, &40100 
10000, 440000, &HA92A,8H5554, 20000, 410000 
80000, 840000, 0100 


SetPointer& WINDOW(7) ‚Menory&,13,16,-8,-7 


in nachstehender Literatur. 
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Listing 3. 
Festlegen eines 
Pointer-Images 


Virtuelle Sprites in Basic 


Alternative Manipulationen 


Von Jürgen K. Singer 


erade die OBJECT-Be- 

fehle von Amiga-Basic 

gestatten einen kom- 
fortablen Umgang mit den grafi- 
schen Elementen (GELs) des 
‚Amiga. Trotzdem ist es manch- 
mal wünschenswert, einen di- 
rekteren Zugang zu den GELs 
zu besitzen. Wenn die Möglich- 
keiten der OBJECT-Befehle 
des Amiga-Basic nicht mehr 
ausreichen, steht als Alternati- 
ve die direkte Manipulation von 
grafischen Elementen mit Hilfe 
des Betriebssystems zur Verfü- 
gung. Dabei solite man sich 
aber im klaren sein, daß dies 
mit einem erhöhten Program- 


Grafische Elemente sind das Salz in der 

Suppe eines jeden Programms. Von Basic 

aus gibt es viele Möglichkeiten Sprites zu 

verwenden. Doch kommt man schnell an 
die Grenzen des Machbaren. 


mieraufwand erkauft werden 
muß. Dies gilt besonders für die 
Sprache Basic, da hier alle Defi- 
nitionen von Strukturen und 
Konstanten in mühevoller Han- 
darbeit nachvollzogen werden 
müssen (siehe Artikel »Struktu- 
ren in AmigaBasic« in diesem 
Heft). 

In diesem Artikel befassen 
wir uns mit den virtuellen Spri- 
tes, die - nach den Hardware- 
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Sprites - die einfachsten GELS 
bilden. Sie sind eng mit den 
normalen Sprites verbunden, 
jedoch können mehr als acht 
virtuelle Sprites auf einmal dar- 
gestellt werden, wobei uns das 
Betriebssystem einen Großteil 
der Verwaltung abnimmt. Um 
Ihnen möglichst viel Arbeit zu 
ersparen, finden Sie in unse- 
rem Beispiel-Listing (Listing 1) 
eine Anzahl von Unterprogram- 


men, die den Umgang mit 
GELs erleichtern. 

Bevor wir VSprites benutzen 
können, müssen wir dem Sy- 
stem zuerst mitteilen, welche 
der acht Hardware-Sprites zur 
Verfügung stehen, Im allgemei- 
nen ist es angebracht, die Spri- 
tes 0 und 1 auszuschließen, da 
der Mauszeiger vom System 
auf Sprite 0 gelegt wird und 
Sprite 1 dieselben Farbregister 
benutzt wie Sprite O (näheres 
hierzu siehe im Artikel über 
Hardware-Sprites in diesem 
Heft). Wie in den Amiga-Libra- 
ries üblich, wird die Verwaltung 
der VSprites über Strukturen 
gesteuert, wobei die für die all- 
gemeine Verwaltung der GELS 
zuständige Struktur folgerichtig 
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den Namen »Gelsinfo« trägt, 
während die individuelle Be- 
schreibung der einzelnen 
VSprites mit Hilfe einer Struktur 
erfolgt, die natürlich auch den 
Namen »VSprite« besitzt. Das 
erste Element der Gelsinfo- 
Struktur ist ein Byte mit dem 
Namen »SprAsrvd«. Jedes ge- 
setzte Bit in diesem Byte steht 
für ein Hardware-Sprite, das für 
virtuelle Sprites zur Verfügung 
steht. Das nächste Byte enthält 
nur vom System benutzte Flags. 
Wenden wir uns daher den 
nächsten beiden Strukturvaria- 
blen zu. Die Einträge »Head« 
und »Tail« bilden den Anfang 
und das Ende einer doppelt 
verketteten Liste von VSprites, 
die vom System darzustellen 
sind. Dabei enthalten »Head« 
und »Tail« selbst keine darstell- 
baren VSprites, sondern sie 
dienen dem System nur zu Ver- 
waltungszwecken. Trotzdem 
müssen wir jeweils den einer 
VSprite-Struktur entsprechen- 
den Speicherplatz mit der Sy- 
‚stem-Routine »Alloc Mem&« ex- 
plezit anfordern, Ähnlich Ist der 
Fall auch bei den nächsten bei- 


Allgemeine 
Beschreibung 


den Varlablen »NextLine« und 
»LastColor«; Auch sie werden 
nur vom System benutzt, doch 
für den benötigten Speicher- 
platz müssen wir selbst sorgen. 
Der nun folgende Eintrag ist ge- 
wissermaßen der größte Pfer- 
defuß bei der GEL-Program- 
mierung von Amiga-Basic aus. 
Der Eintrag »CollHandler« 
spielt eine entscheidende Rolle 
bei der Behandlung von Zu- 
sammenstößen - doch dazu 
später mehr. Da VSprites natür- 
lich nicht nur untereinander, 
sondern auch mit einer Begren- 
zung kollidieren, kann diese in 
den nächsten vier Einträgen 
angegeben werden. Die letzten 
beiden Einträge werden wieder 
vom System intern benutzt. Die 
Initialisierung der Gelsinfo- 
Struktur übernimmt in unserem 
Beispiel-Listing das Unterpro- 
gramm »NewGElLsinfo«, das 
als Parameter die Daten der Be- 
grenzung besitzt und die Adres- 
se der vorbesetzten GelsInfo- 
Struktur in die globale Variable 
»Ginfo&« schreibt. Bevor dieses 
Unterprogramm aufgerufen 
werden kann, müssen auch die 
globalen Variablen »RPort&« 
und »VPort&« mit den Adressen 
des benutzten Rast-Ports und 
des passenden View-Ports be- 
setzt werden, denn die Adresse 
der GelsInfo-Struktur muß auch 
im RastPort zur Verfügung ste- 


hen. In unserem Beispiel wird 
diese Voreinstellung im Unter- 
programm »Initialize« vorge- 
nommen. Da am Ende der De- 
monstration der allokierte Spei- 
cher wieder freigegeben wer- 
den muß, gibt es zu den beiden 
Unterprogrammen die beiden 
Gegenstücke »FreeGELsinfo« 
und »Finalize«, 

Nachdem mit Gelsinfo die 
allgemeine Beschreibung erle- 
digt ist, müssen wir die einzel- 
nen VSprites beschreiben. Da- 
zu dienen die Einträge in die 
VSprite-Struktur. Dabei ist zu 
beachten, daß diese Struktur 
nicht nur VSprites alleine be- 
schreibt, sondern auch einen 
Teil der Beschreibung der 
»BOBs« (Erläuterungen dar- 
über im nachfolgenden Artikel) 
übernimmt. Daher werden hier 
nur die für die VSprites interes- 
santen Strukturelemente be- 
sprochen. Zuerst muß dem Sy- 
stem mitgeteilt werden, daß wir 
auch tatsächlich VSprites be- 
schreiben. 

Dazu setzen wir in der Varia- 
blen »Flags« das durch die Kon- 
stante »ISVSPRITE« definierte 
Bit. Die Position unseres VSpri- 
tes legen wir über die Koordina- 
ten »X« und »Y« fest. Ebenso wie 
ein Hardware-Sprite kann ein 
VSprite zwar beliebig hoch 
sein, jedoch besitzt es immer 
eine Breite von einem Wort und 
eine Tiefe von zwei, entspre- 
chend werden die Variablen 
»Width« und »Depth« gesetzt. 

Die Bedeutung von »Me- 
Mask« und »HitMask« wird spä- 
ter bei der Behandlung von Kol- 
lisionen ausführlich bespro- 
chen. Die Variable »ImagaDa- 
ta« enthält die Adresse, bei der 
die Bilddaten unseres VSprites 
beginnen. Der Aufbau dieser 
Daten ist analog dem von Hard- 
ware-Sprites, jedoch im Unter- 
schied zu diesen werden die 
beiden vorangehenden und fol- 
genden Nullen weggelassen. 
Außerdem kann ein Datensatz 
auch mehreren VSprites zuge- 
ordnet werden. Die Variablen 
»BorderLine« und »CollMask« 
enthalten Zeiger zur Kollisions- 
erkennung dienende Datenfel- 
der, deren Speicherplatz wir 
zwar vom System holen müs- 
sen, die Initialisierung dieser 
Datenfelder nimmt uns jedoch 
die Systemfunktion »InitMasks« 
ab. Die drei Farben des VSpri- 
tes (die vierte Farbe ist transpa- 
rent) legen wir in einem aus drei 
Worten bestehenden Daten- 
feld ab und übergeben dessen 
Adresse an die Variable »Spr- 
Colors«. Die folgenden drei Va- 
riablen sind nur bei der Benut- 
zung von BOBs interessant, so 
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daß wir gleich zu den vom Be- 
nutzer selbst definierten Varia- 
blen kommen können. In unse- 
rem Beispiel haben wir noch 
die Variablen »VX« und »VY« an 
die VSprite-Struktur ange- 
hängt, um jedem VSprite neben 
einer Position auch noch eine 
Geschwindigkeit zuordnen zu 
können. Prinzipiell sind Sie je- 
doch in der Wahl dieser Varia- 


Initialisierung 
der Datenfelder 


blen vollkommen frei, Sie müs- 
sen nur dafür sorgen, daß der 
benötigte Speicherplatz zur 
Verfügung gestellt wird und da- 
her die Größe der VSprite- 
Struktur entsprechend anpas- 
sen. In unserem Beispiel wird 
die Vorbesetzung einer VSprite- 
Struktur durch das Unterpro- 
gramm »NewVSprite« durchge- 
führt, welches nur das allge- 
meinere Unterprogramm »New- 
GEL« aufruft, Dieses wiederum 
initialisiert die VSprites und 
BOBs gleichermaßen und reiht 
sie in die vom System unterhal- 
tene Liste von GELs ein. Nach 
der Devise »Geben ist seliger 
denn Nehmen«, haben wir zum 
Freigeben von GELs gleich 
zwei Unterprogramme defi- 
niert: 

Die Sparversion »FreeGEL« 
gibt ein einzelnes GEL frei, 
»FreeAllGELs« ist dagegen we- 
sentlich großzügiger und gibt 
den Speicherplatz aller zur 
Gelsinfo-Struktur gehörigen 
darstellbaren GELs an das Sy- 
stem zurück. 


Behandlung von 
Kollisionen 


Kommen wir zu unserem 
Pferdefuß zurück und behan- 
deln die Kollisionen. Dazu muß 
zuerst festgelegt werden, wel- 
che GELs mit welchen anderen 
GELs und/oder mit dem Rand 
kollidieren können. Hierzu die- 
nen die beiden Variablen »Me- 
Mask« und »HitMask« in der 
VSprite-Struktur. Ist in »Hit- 
Mask« Bit 0 gesetzt, so heißt 
dies, daß dieses GEL mit der in 
der Gelsinfo spezifizierten Be- 
grenzung zusammenstoßen 
kann. Stoßen zwei GELs zu- 
sammen, so wird vom System 
die bitweise UND-Verknüpfung 
der »HitMask« des einen GELS 
mit der »MeMask« des anderen 
GELs vorgenommen. Ein nach 
dieser Verknüpfung gesetztes 
Bit entspricht einer gültigen 
Kollision. Ein gelöschtes Bit ig- 
noriert diese Kollision. Somit 
können wir bis zu 16 unter- 
schiedliche Kollisionen definie- 


ren, wobei vom System jedoch 
bei mehreren gleichzeitig ge- 
setzten Bits nur das niedrigst- 
wertige benutzt wird. Das Sy- 
stem ist zwar in der Lage, bis zu 
16 verschiedene Kollisionen zu 
erkennen, doch bis jetzt haben 
wir dem System nicht mitgeteilt, 
wie es auf die unterschiedli- 
chen Zusammenstöße reagie- 
ren soll. Dazu dient die Variable 
»CollHandler« in der Gelsinfo- 
Struktur. Diese Variable zeigt 
auf ein Feld, welches wiederum 
Zeiger auf 16 Funktionen ent- 
hält, die beim Vorliegen der ent- 
sprechenden Kollision ausge- 
führt werden sollen. Die erste 
Funktion in diesem Feld behan- 
delt dabei die Zusammenstöße 
mit der Begrenzung. Daher be- 
sitzt sie als erstes Argument die 
Adresse der VSprite-Struktur, 
die mit der Begrenzung zusam- 
menstieß, während das zweite 
Argument ein Byte ist, das Aus- 
kunft darüber gibt, mit welcher 
der vier Begrenzungsseiten der 
Zusammenstoß erfolgte, Die 
restlichen Funktionen behan- 
deln die Kollisionen der GELS 
untereinander und besitzen da- 
her als Argumente die VSprite- 
Adressen der beiden zusam- 
mengestoßenen GELs. Ein Auf- 
ruf der Systemfunktion »DoCol- 
lison« sorgt dafür, daß alle zum 
Rast-Port gehörigen GELs auf 
Kollisionen untersucht werden 
und die entsprechende Funk- 
tion aufgerufen wird. Aus die- 
sen Gründen ist es leider nicht 
möglich, diese Funktionen in 
Basic zu schreiben. Um das 
Programm nicht unnötig zu ver- 
langsamen, sollten Sie diese 
Funktionen möglichst kurz hal- 
ten und sie in Maschinenspra- 
che ausführen. In unserem Bei- 
spiel wird bei der Kollison eines 
GELs mit der Begrenzung die 
entsprechende Geschwindig- 
keitskomponente »umgedreht«, 
was dazu führt, daß das GEL 
von der Begrenzung reflektiert 
wird. Treffen jedoch zwei GELs 
aufeinander, sotauschen sie ih- 
re Geschwindigkeiten aus. Die 
beiden hierfür verantwortlichen 
Funktionen heißen bei uns 
»BorderHit« und »GelHit«. Sie 
werden dem System mit Hilfe 
der Funktion »SetCollision« be- 
kanntgemacht, wobei das erste 
Argument angibt, der wievielte 
Tabelleneintrag die Funktion 
(das zweite Argument) ist. Das 
dritte Argument gibt dabei an, 
in welche »CollHandler«-Tabel- 
le (deren Adresse in der Gels- 
Info-Struktur angegeben ist) die 
Funktion eingetragen werden 
soll. Das Schreiben der Funk- 
tionen in den Speicher und den 
Aufruf von »SetCollision« erle- 
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digt in unserem Beispiel das 
Unterprogramm »MakeColl- 
Subs«. 

Nun haben wir es endlich ge- 
schafft und alle notwendigen 
Voreinstellungen hinter uns ge- 
bracht. Um die GELs auf dem 
Bildschirm darzustellen, müs- 
sen sie zuerst sortiert werden. 
Denn das System verlangt, daß 
die GELs von links oben nach 
rechts unten entsprechend 
dem Weg des Elektronen- 
strahls des Bildschirms ange- 
ordnet werden. Diese Umord- 
nung müssen wir nicht von 
Hand vornehmen, sondern es 
genügt ein Aufruf der System- 


funktion »SortGLists. Erst jetzt 
können die GELs mit Hilfe der 
Funktion »DrawGList« darge- 
stellt werden. Um aber der 
Wahrheit die volle Ehre zu ge- 
ben: Nach dem Aufruf von 
»DrawGList« werden nur BOBs 
sofort dargestellt, während für 
die VSprites lediglich eine neue 
Befehlsliste für den Copper ge- 
neriert wird. Um diese Befehls- 
liste auch zur Ausführung zu 
bringen, muß diese an den 
View-Port angebunden wer- 
den, was mit Hilfe der Funktion 
»RemakeDisplay« geschieht, 
Dabei sollten Sie beachten, daß 
diese Funktion den kompletten 


ViewPort, das heißt alle 
Screens und Windows neu auf- 
baut, was recht zeitintensiv (bis 
zu einigen Millisekunden) sein 
kann. 

Lassen Sie unser Demon- 
strations-Programm ablaufen, 
so werden Sie feststellen, daß 
es zwei leider nicht vermeidba- 
re Schönheitsfehler besitzt: 
Zum einen besitzt die »DoColli- 
sion«-Funktion, besonders bei 
einer größeren Anzahl von 
GELs, die Angewohnheit, 
manchmal Kollisionen zu über- 
sehen. 

Zum anderen kann das Sy- 
stem nur dann mehr VSprites 


als Hardware-Sprites darstel- 
len, wenn zwischen diesen eine 
Bildschirmzeile in y-Richtung 
Abstand besteht. 

In unserem Demo äußert sich 
dies darin, daß einige VSprites 
manchmal kurzzeitig vom Bild- 
schirm verschwinden. 

Trotzdem hoffen wir, Ihnen 
den Umgang mit virtuellen 
Sprites nähergebracht zu ha- 
ben. Betrachten Sie das Listing 
als Demonstrations-Programm 
und nicht als der »Weisheit letz- 
ter Schluß«. Im nachfolgenden 
Artikel finden Sie dann mehr 
Hintergründe zu grafischen 
Elementen, ag 


2.ho 
3.00 


WERD" File: VSprite.bas 


Programmname: VSPRITE 
\ Computer: A500, A1000, A2000 mit 
! Kickstart 1.2.& 13 
N Sprache: AmigaBasic 
Programmautor: Jürgen K. Singer 


" Status: Leuffänig 
' Kompatibel; AC-Best 
’ HiSoft-Bas! 


' Erzeugen von und Umgang mit virtuellen Sprites 
sus Pletzgründen keine Fehlerabfragen << 


' > Allgemeine Veriablendekleration << 


' globale Variable 
DIM SHARED RPortk, 
' VSprite Struktur 
DIM SHARED vaNiext, 
DIM SHARED vsoldK, 
vsDepth 

DIN SHARED vsNelask, vsliitask, vsInageData, vaöorderLine 
DIM SHARED vsCollNask, vsSprColors, vsVSBob, vsPlanePick 
DIM SHARED vsPlaneünff, vaVY, vsVX, VSpriteSize 

! Bob Struktur 

DIM SHARED bbFlags, bbSaveBul 
DIN SHARED bbAfter, bbBobVSpr 
BobSize 

" DBufPacket Struktur 

DIM SHARED dpBuft, ApSufX, dpBufPath, dpBufBuffer, 
DBufPacketSize 

' GelsInfo Struktur 

DIM SHARED giSpräsrvä, giflags, gitead, giTail, giNextline, 
gilastColor 

DIN SHARED giCollHiandier, gileftnost, giRightnost, 
giTopnost 

DIM SHARED giBottonnost, gif! 
GelsInfoßize 

" GollTable Struktur 

DIN SHARED CollTablesize 

' Kollisions-Punktionen 

DIM SHARED Bordertiitä, Gelliith 

! Konstanten 

DIM SHARED ISVSPRITE, VSSAVEBACK, VSOVERFLOK 

DIM SHARED MENF.CLEARL, MEMF.PUBLICK, MENF.CHIP& 
.--< Deklaration der Library-Funktionen >-—- 
LIBRARY "exeo.library” 

LIBRARY "graphies.librery” 

LIBRARY "Intuition.library” 

DECLARE FUNCTION Allockenk ( bytes&, flags& ) LIBRARY 
DECLARE FUNCTION AllocRaster& ( WIDTH, height ) LIBRARY 
DECLARE FUNCTION ViewPortädäress& ( Win& ) LIBRARY 


VPort&, Ginfok, 0180Info&, InageDatak 


vsPrev, veDrawPath, vsClesrPath, vsOldY 
vsFlegs, vsY, vsX, veHelght, venidth, 


, bbInageShadow, bbBefore 
, bbBobConp, bbDBuffer, 


stBliss, gilastBliss, 


HORG2 NVSp = 16 

50 h6 DIN vsklnvSp) 

51%  Initielize 

5202 FOR 1 = 1 TO NVSp 

53 0% x [NT( 620 # RND ) 

54T y = In 230 * Rn) 

55 60 vx = DI 10» RD -5) 

56 AT = m#Rm-5) 

37.08 et& = Alloolemk( 6&, MEMF.CLEARE OR MEHF.PUBLICE ) 
5851 POKEW et& , INZ( 4096 ® RND ) 

a FOKEW (etk+2&), INT( 4096 * AND ) 

‚60. POKEN (etk+4&), INT( 4096 ® AND ) 

12 NewVSprite vsk(1),X,7,8,-1,-1,InageData&, ot&,vx,Vy 
6@m2 NEITA 

Ga IP DisplaycELs 

@4 0a WHILE NOT NousE(o) 

5 165 FOR 1 = 1 TO NVSp 

66 08 vopk = vak(1) 

67.0 x = PEEKW(VSpE+vsK) + PEEKUVSpEHYSTK) 
‚s8.K1 3 = PEEKU(vspkevsY) + PEEKW(vepkHvaVY) 
& kr POKEN (vspk+vaX), x 

70 wo POKEU (veps-vst), y 

T1.005 NEXT 1 

7278 DisplayGzLs 

73002 wen 

Tex Finalize 

75. xs0 END 


77 KQ SUB NewSpriteData STATIC 

78093 id = Allochenk( 32&, MEMF.CHIPE OR MEMF.PUBLIOK ) 
7X POKEW (1% ),  8H0 (1at+ 2), 80 
'B0CQ POKEW (1di+ 4) (1äk+ 6), &HO 
81 TB POKEW (idi+ 8) (1d&+10), BHTEO 
8214 POKEN (144412) (1d%+14) ‚23030 
83 alt POKEW (144416) (144+18) ‚843030 
& H0 POKEN (14420) 14422), &H7EO 
BI Rp  POKEW (146424) i (146426), 0 
86 Do POKEW (14628) 144430), AO 
876% InngeDatak = 1dk 

‚88. 8U0 END SUB 

89 0R. SUB Initialize STATIC 

90 da) RANDOMIZE 

9170 SetConst 

9210 SetStructs 

93 no NewSpriteData 

4 zv WINDOW 2, "VSprite Demo”, (0,0)-(630,240),0 
Ks RPort& 

96 IF Win& = WI 

MER VPortk = ViesPortäddresss( Wink ) 

BF NewßElsInfo 0, 0, 630, 240 

bu  NakeColisubs 

100 eg0 END SUB 

302 24 SUB Finelize STATIC 
102 m3 Freelienk Bordertiitk, 1008 

103 4 Freeäligeis 

204 04 DisplayGZLs 

105 ie Fresßälsinfo 

106 ua WINDOW CLOSE 2 
107 CB Freeiienk InageDatas, 32& 

08 mod END SUB 


-—< Aussehen der VSprites > 
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NOW-HOW 


202 78 
110 663 


auı pro 
212 ua 
413 pa 
a14 10 
215 0M 
116 ca 
117 du 
218 66 
219 90 
10 a2 
121 on 
122 ng 
123 130 
124 9a 
125 ph 
126 08 
127 NO 
128 Ya 
129 103 
130 20 
131 8 
132 uQ 
133 08 
134 yh 
139 Gn0 
136 ED3 
137 120 
198 1 
139 an 
140 7% 
u v6 
142 0 
1m 6L 
aaa N 
149 1M 
146 m 
un ar 
48 Pi 
149 vr 
150 IR 
161 OR 
252 D10 
153 Be3 
154 a0 
155 KO 
156 Iu2 
157 ng0 
158 \Ue3 
139 1m 
260 21 
del 1a 
162 no 
163 vn 
164 of 
165 vo 
166 va0 
167 103 
16B kyO 
169 Wr3 
170 0x 
71 au 
172 sc 
173.090 
174 183 
175 In 
176 #3 
77 iR 
ra ne 
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SUB NewVSprite( vs&,x,y‚h,mn,hn,1äß,ot&,vx,vy ) STATIC 
NeuGEL vsk,1SVSPRITE,0,%,9,h,1,2,mm, hn, id, et&,0,0,vx, 
wo 

END SUB 

' >> Allgeneine Unterprogramne zum Ungang mit GELs << 


SUB SetConst STATIC 
ISVSPRITE = 1 
VSSAVEBACK = 2 
VSOVERFLOW = 84800 
MEMR-PUBLIOR = 1 
MEMP.CHIPL = 2 
MEMP.CLEARG = 655366 ' = 2116 
zND SUB 
SUB SetStmuots STATIC 
' Ann Vöpnite - Struktur > 


" ORFSET © - Deklaration 
Nmnmnnnnunnn Systen >-. un 
vallext = 0 ' struet VBprite KNextVSprite ; 
vaprev = 4 ' struot Vprite #PrevVäpnite ; 
veDrayPath = 8 ' struct VSPrite KDrawPath ; 
voclenrfath = 12 ' atruot VSPrite #Olearfath ; 
veolar =16 ' WORD.OLdY ; 
vaoldX =18 ' WORD O1KX ; 
Nannnonunnnunnnung System h Benutzen >mmmmnnnmnnnnnnnnn 
varlaga = 20 ' WORD Flags ; 
Yanmmanann -< Benutger Domnnnnnnnnnnunnn 
var “22 VORDy; 
voX "24 ' VORDx 5 
vsHelght = 26 ' WORD Hadght ; 
vaysath = 28 ' WORD WIDTH 
"30 ' WORD Depth ; 
"32 ' WORD Nelask ; 
vallitlac "34 ' VORD Hitlask ; 
valnageData = 36 ' WORD *Imagebatu ; 
vaBorderLine = 40 ' WORD *borderLine ; 
vsCollNask = 44 ' WORD KOolMask ; 
vsöprcolors «48 ' WORD KSproolors ; 
vov&ßeb =52 ' atmuot Bob KVSBob j 
vaPlanePick = 56 ' BYTE planePiok ; 


vePlaneonöff = 57 ' BYTE Planeünoff ; 
{ < Eigendefinition des Benutzers > 
“58 ' WORD wy 5 
=60 ' WORD vx 5 


Vöpritesize = 62 


< Bob Struktur >=. 


bbBobomp = 22 
boDBuffer = 26 


struet AnimConp *BobConp ; 
struet DBufPacket #DBuffer ; 


bbFlags “0 ' WORD Flags ; 

bbSaveBuffer = 2 ' WORD *BaveBuff‘ 
bbImageShadon = 6 ' WORD *ImageShador ; 
bbBefore = 10 ' struct Bob "Before ; 
bbAfter "14 ' struet Bob After ; 
bbBobVöprite = 18 ' atruet WSprite *BobVSprite ; 


BobSize = 30 


! < 
apBufY = 0! WORD BufY ; 
apBufk = 2 ' WORD Bufk ; 
ApBufPath = 4 1 stmet VSprite #BufPath ; 
dpBufBuffer = 8 ' WORD XBufßuffer ; 


DBufPacketsize = 12 


GelsInfo Struktur >=... 


gispräsrvd BYTE spräsıvd ; 

giflags UBYTE Flags ; 

giHead struct Vsprite *gellead ; 
giTatı struet Vaprite NgelTail ; 
gilextLine WORD *nextLine ; 


gilastbolor = 14 
gitollHandier = 18 


WORD **lastColor ; 
struet CollTable *eollliandler ; 


gileftnost SHORT leftnost ; 
giRtghtmost SHORT rightmost ; 
giTopmost SHORT topnost ; 
giBottonmost; SHORT bottommost ; 
girirstiliss APTR firstBlissob] ; 


gilastBliss APIR lastBlissübj ; 


251 013 
252 78 
293 EN 
254 yx 
255 20 
26 12 
257 206 
238 
259 703 
260 dx 
261 nb 


GelsInfoSize = 38 
-—-< CollTeble Struktur >-- 
CollTable$ize = 16 * 4 ' 16 Zeiger auf Funktionen 
END SUB \ 
- --< Umgang nit einzelnen GEIs >-. 
SUB NexGEL( vapk,sf,bf,x,y,h,w,d,nn,hn, 188, sch,pp,po,v&,wy, 
db ) STATL 
vopk = Alloehenk( VSpriteSize, MENF.OLEARK OR. 
KENF.PUBLICE ) 
wir = 168% 
bI& = Alloclienä( wu, MEMF.CLEARK OR MENF.PUBLIOR ) 
em& = AllocRester&( wu&, h) 
IF (b1& = O& OR om& = 0%) THEN BERP 
POKEN (vepkrvsFlags), st 
POKEN (vepkvsk), x 
POKEN (vapkvat‘), 
POKEN (vepvsHieight) , 
POKEN (vapk+valiidth), 
POKEW (vep&+vaDepth) „ 
POKEN (vapktvatieNiask), nm 
POKEW (vapkrvstiitMask), hm 
POKEL (vapfrvsinugedata), dk 
POKEL (vapk+vaBorderLine), bi4 
POKEL (vapkrvsCollHask), omk 
POKE (vspktvsPlanePick), pp 
POKE (vapkvsPlaneonöff), po 
POKEN (vapkrvsvX), vr 
POKEN (vapkvavt),  vy 
InitHasksk vapk 
IP( s£ AND ISVSPRITE ) THEN 
POKEL (vapkvssproolors), sch 
AdaVSpriteß vapk, Rrontk 
ELSE 
Bobk = Alloclenk( BobSize, MEMR.OLEARK OR 
NENF.PUBLICH ) 
POKEL (vapk+vaV5Bob), Bobk 
POKEL (Bob&+bbBobVSprite), vapk 
POKEL (Bobk+bbInageöhadon), com& 
POKEN (BobkrbbFlags), DL 
p = (NOT pp) AND po 
nPlanes » 0 
Ber 
WHILE( 1 < 256 ) 
TP( A AND p ) THEN nPlanes = nPlanes + 1 
imi+t 
WEND 
Planes = (nPlanes + d) * h 
abk = Ok 
1P( af AND VSSAVEBACK ) TEN 
sbk = Allochasterk( wwk, nPlanes ) 
END IF 
POKEL (Bobi+bbSaveBuffer), sbk 
DBUfE = 0% 
Apk = 0% 
IP( ab ) THEN 
DBuf% = Allocen&( DBufPacketSize, MENF,CLEARK OR 
MEMF.PUBLICK ) 
dp& = Allochaster&( wu&, nPlanes ) 
POKEL (DEuFE+ApBufBuPfer), Apk 
END IF 
POKEL (Bobk+bbDBuffer), DBuF& 
AddBobk Bob, RPortk 
END IF 
AND Su 
SUB FresEL( vapk ) STATIC 
w = PEEKW(vsplevsliiäth) * 16 
h = PEERW(vsp&+vsHieight) 
d = PEEKW(vep&+vsbeptn) 
ptr& = 0& 
Ptr& = PEEKL(vep&+vaBorderLäne) 
Ir( ptr& ) THEN 
we # / Bk 
Freelem ptr&, wu& 


Pirk = 0% 
= FEEKL(vsp&+vsCollMask) 


Listing 1. Demonstrationsprogramm zur Darstellung 
virtueller Sprites 
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IF( ptr& ) THEN CALL Freeiasterk( pr, w, h) 
2 = PEERW (vapktvsFlags) 
IF ( f AND ISVSPRITE ) THEN 
pirk = PEEKL(vep&+vsSprColors) 
Freekenk ptrk, 6& 
RenVöpritek vapk 
ELSE 
Bob& = PEEKL(vsp&+vsVSBob) 
RemIBob& Bob&, RPort&, VPort& 
pp = PEEK(vsp&+vaPlanePick) 
po = PEEK(vspk+vsPlane0nof?) 
p = NOT pp AND po 
1e1 
nPlanes = 0 
WIILE( 1 < 256 ) 
IF{ A AND p ) THEN nPlanes = nPlanes + 1 
1et+l 
END 
nPlan 
pirk = Ok 
ptr& = PEEKL(Bobi+bbSaveßuffer) 
IP( ptrk ) THEN CALL FreeRasterk( ptrk, v, nPlanes ) 
DBufk = Ok 
DBuf& = PREKL(Bob&+bbDBuffer) 
Ir( DBufß ) THEN 
Ptr& = PEEKL(DBuf&+dpkufBuffer) 
IF( ptr& ) THEN CALL Freeaster&( prä, ©, 
nPlanes ) 
FreeNenk DBufs, DEufPacketSize 
zND IF 
Freelienk Bobk, BobSize 


(nPlanes + 6) *h 


\ Freeienk vap&, VSpriteSize 
294 n00 END SUB 

295 &x SUB FreeAliGELs STATIC 

296 863 Heads = PEEKL(GInfok+giHead) 


297 aa Tailk = PEEKL(GInfok+giTeil) 
ABEL  Nxtk = PEEKL(Headk+vsNext) 
ot WEILE ( Nxt& <> Teilk) 
300 Ni6, hotk = Nxtk 
301 60 Nxt& = PEEKL(Aotärvaliext) 
302 Kr FresGEL Aotk 
303 K63  WEND 
304 wyO END SUB 
305. IR '-- ---< Umgang mit GelsInfo Struktur >- 


306 £v SUB NewGELsInfo( 1, t, r, b ) STATIO 


PUBLICE ) 


PUBLICH ) 


PUBLICH ) 

POKE (GInfok+giSprRsrvd), SHFD ' benutze nicht Sprite 
O und 

POKEL (GInfoß+giNextLine), ni& 

POKEL (GInfo&+gilastColor), Ick 

POKEL (GInfoß+gi0ollHandler), ch 
POKEN (GInfoktgileftmost), 1 

POKEN (OInfoß+giRightnost), x 

POKEW (Ginfoß+giTopnost), t 

POKEW (GInfol+giBottonnost), b 
O140Info& = PEEKL( RPort&+20& ) 

POKEL (RPort&+204), GInfok ' Rrort-> 
GelsInfo = GInfo ; 

InitGelsk Hendk, Tailk, GInfo& 


"SUB FreeGElsInfo STATIC 

Ir( GInfok <> 0& ) THEN 

ptr& = PEEKL (GInfoß+gilend) 
Freelen& pirk, VEpriteSize 

ptr& = PEEKL (GInfoß+giTait) 
Freeieng ptr&, VSpritesize 

prä = PEEKL (Ginfok+giliextLine) 
Freeiienk ptr&, 16% 

ptrk = PEEKL (Ginfof+gilastColor) 


nid GInfok = AllocNem&( GelsInfoßize , MEMF.CLEARK OR MEMF. 
Hend& = Alloclenk( VSpriteSize , MEMF.CLEARk OR NEHF, 


Tatl& = Alloclenk( VSpriteSize , MENF.CIEAR& OR HEMF. 


PUBLICK ) 
nl = Allooen&( 16% „ MEMF.CLEAR& OR MENF. 
PUBLICE ) 
ick = Alloclemk( 324 » MEMP.CLEARE OR MENF. 
PUBLICK ) 


eh& = Alloclemk( CollTableSize, MEMF.CLEARE OR NEMF. 


334 w9 Freeienk ptr&, 32% 

33.07 pirk = PEEKL (GInfoß+giColitiandler) 
336 yE Freeienk ptr&, CollTableSize 

337 23 Freeenk GInfok, GelsInfoSize 

338 p2 GInfob = Ok 

39 m FOKEL (RPortä&+20%), O1dGInfok 


342 53 '-<Erzeugen und Instellation der Kollisionsverarbeitung> 
343 84 SUB MakeCollSubs STATIC 


3bh 613 pi = AllocMem&( 100%, MEMF.CLEARK OR MEMP.PUBLICK ) 
3 it Borderliitk = pk 

346 8x | EOKEW (pk ), &H4ESS 

347 Hk POKEW (p&+ 2), MIFFEO ' LINK 45, #820 
348 os POKEN (pk+ 4), BH4BET 


349 0 FOKEN (pie 6), &ic0sO ' MOVEN.L  DO-DL/AO,-(A7) 
350 UR FOKEN (p&+ 8), AH302D 


351 07 FOKENW (p&+10), SEE 0" MOVE.W  0014(A5),D0 
392 We POKEN (p&+12), 8206D 
353 4h POKEM (p&+14), &iß "  MOVEA.L 0008(A7),A0 
35404 FOKEN (p&+16), 4040 
353 IK FOKEW (pie), 2 ' CWPI.W  #0002,D0 
356 KE FOKEW (p&+20), AH6FOO 
36744  FOKEW (pie22), 2 ' BEE. ChangeVY 
38 ek POKEW (pi+24), 23230 
359 UN POKEW (p&+26), varXk ' MOVE _vaWX,Di 
POKEN (pkr28), 84240 
POKEN (p&+30), &#3 "ANDI. 0003,00 
POKEW (p&+32), &H6700 
POKEN (pir34), Ba " BEQ.W Done 


POKEW (P5+36) , 854470 
POKEN (pk+38), 841000 ' MNEG.M O0CAO,DL.M) 
POKEN (p&r40), E43230 : 

POKEW (p&+42), vet 
POKEV (pi+44), 814470 
POKEW (pt+46), 1000 * 

POKEW (pf+48), SH4CDF- ' Done: 

FOKEW (p&+50), 85103 ' MOVEN.L  (A7)+,DO-DI/AO 


„vsvY,Di 


NEG.U 00(A0,DL.N) 


SSBSRERERER 
Bay2naasıya 


POKEN (p&+52), BA4ESD ' UNLK » 
POKEN (p&r54), EH4E75 
GelHitk = p& + 566 
POKEW (p&+56), SH4E55 
POKEW (p&+58), AHFFEO " LINK AS, #820 

FOREN (pl+60), &H4BE7 

FOKEW (pir62), &HO0CO " NOVEM.L  DO-D1/AO-AL,-(A7) 
POKEN (pl464), BHZOED 


22333333333 
BEBSUNZUS 


BERSTEREER 


POKEn (pE+66), 88 * MOVEA.L 0008(A5) ‚AO 
POKEW (p&+68), 8H226D 

POKEW (E70), &iC  ' MOVEA.L 0012(A5) AL 
POKEW (pi+72), 813230 

POKEW (p&+74), veVY_ ' MOVE.M  _vaVY,DL 


FOKEw (p&+76), 412030 
FOKEM (p&+78), 41000 ' MOVE.L  00(A0,D1.W),D0 
POKEN (p&+80), 82181 
POKEN (p&+82), 341000 
POKEN (pk+84), 841000 ' MOVE.L OO(A1,DL:R), 
00(A0,D1.4) 
POKEU (p&+86), &2380 
POKEW (pk+38), 841000 ' MOVELL DO,00(41,D1.K) 
FOKEW (p&+90), BRACDF 
POKEN (p+92), 84303 ' MOVEM.L  (A7)+,DO-DI/AD-AL 
POKEN (pi+94), SH4ESD ' UNLK [3 
POKEN (p5+96), EH4ET5 ' RTS 
SetCollision& 0, Borderhit&, GInfo& 
PRL=17015 
Setollisions 1, Gelliitk, GInfo& 
NEXT 4 
am suB 
Yanann < Darstellung der GELS auf dem Bildschirm > 


SUB DisplayGELs STATIC 
Dotollisionk RPortk 
Sort6listk RPortk 
DrasGList& RPort&, VPortk 
BenskeDisplayk 


SEIRERERASUBNRNREREZ SBSRSRER 
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Listing 1. (Schluß) 


jetzt an Eiska- 
nal und Winter- 
sport denken, liegen 


Sie völlig verkehrt. Wir 
wollen Ihnen vielmehr die Fä- 
higkeiten der BOBs näherbringen. 


Von Jürgen K. Singer 


gehenden Artikel über gra- 
fische Elemente, in dem wir 
uns ausschließlich mit den 
VSprites beschäftigten, sollnun 
unser Augenmerk auf die Blitter- 
Objekte gerichtet werden, Zuerst 
wollen wir Ihnen die grundsätz- 
lichen Unterschiede der beiden 
grafischen Elemente näher- 
bringen. Sprites sind sowohl in 
der Größe als auch in der An- 
zahl der möglichen Farben ein- 
geschränkt. Abhilfe bieten hier 
die Blitter-Objekte (BOBs). Wie 
der Name schon verrät, werden 
BOBs nicht - wie Sprites - vom 
Copper, sondern vom Blitter 
des Amiga erzeugt. Dadurch 
wird eine problemfreiere Ein- 
bindung in Animationen mög- 
lich. Eine vereinfachte Darstel- 
lung des Amiga-Anima- 
tions-Systems finden Sie in Bild 
1. Die Fähigkeiten des Blitters 
beschränken sich im wesent- 
lichen auf das Kopieren von 
Speicherbereichen, dies ge- 
schieht jedoch mit sehr großer 
Geschwindigkeit. Eine Folge 
davon ist, daß BOBs nicht un- 
abhängig vom Bildschirmhin- 
tergrund dargestellt, sondern in 
diesen hinein gezeichnet wer- 
den. Damit ergibt sich ein er- 
heblicher Vorteil - die Be- 
schränkungen der Sprites in 
Farbe und Breite fallen weg. Al- 
lerdings ist dafür ein höherer 
Verwaltungsaufwand nötig. 
Denn bevor ein Objekt in den 
Bildschirm gezeichnet wird, 
muß der Bildschirminhalt an 
dieser Stelle gesichert werden, 
um eine, Restaurierung des 
Hintergrunds nach dem Entfer- 
nen des Objektes zu gewährlei- 
sten. 
Erstaunlicherweise erfolgt 
auch die Verwaltung von BOBs 


j m Gegensatz zum vorher- 


Know-How 


mit Hilfe der VSprite-Struktur, 
wobei zusätzliche Informatio- 
nen in einer speziellen BOB- 
Struktur abgelegt werden. Da- 
her werden wir die Einträge der 
VSprite-Struktur (siehe Artikel 
»Alternative Manipulationen«) 
besprechen, die für BOBs eine 
Rolle spielen. 

Als Grundlage verwenden 
wir das Listing in dem schon 
angesprochenen Artikel über 
VSprites. Das Demo-Listing zu 
diesem Artikel werden wir et- 
was später besprechen. Um 
dem System mitzuteilen, daßes 
sich um einen BOB und nicht 
um ein VSprite handelt, muß im 
Mitglied »Flags« der VSprite- 
Struktur das durch die Konstan- 
te »ISVSPRITE« bestimmte Bit 
gelöscht sein. In dieser Variable 


Blitter-Objekte in Basic 


gibt es außerdem ein durch die 
Konstante »VSSAVEBACK« be- 
stimmtes Bit, das festlegt, ob 
der Hintergrund des BOBs vor 
dem Zeichnen gesichert wird 
oder nicht. Ist dieses Bit ge- 
löscht, so restauriert sich der 
Hintergrund nicht und der BOB 
arbeitet wie ein Pinsel. Bei 
VSprites hatten die Variablen 
»Width« und »Depth« feste Wer- 
te, während sie nun die Breite 
(in Worten) und die Anzahl der 
Bitplanes des BOBs widerspie- 
geln. 

»BorderLine« und »Coll- 
Mask« erfüllen die gleichen 
Aufgaben wie auch bei VSpri- 
tes, nur ist darauf zu achten, 
daß für sie genügend Speicher 
entsprechend der Breite des 
BOBs allokiert wird. Die Varla- 


ble »SprColors« setzen Sie auf 
Null, da die Farbe der BOBs 
aus den Farben der Bitplanes 
bestimmt wird und eine eigene 
Farbtabelle daher überflüssig 
ist. 

Auf die Funktion von »Plane- 
Pick« und »PlaneOnOff« kom- 
men wir später noch. 

Folgen wir dem Struktur-Mit- 
glied »VSBob«, welches einen 
Zeiger auf die oben bereits er- 
wähnte BOB-Struktur enthält. 
Diese Struktur beinhaltet als er- 
sten Eintrag wieder »Flags«, 
wobei für das System sieben 
unterschiedliche Flags von Be- 
deutung sind: 

BWAITING (&H0100) wird vom 
System gesetzt, falls noch an- 
dere GELs vor diesem BOB zu 
zeichnen sind. 

BDRAWN (&H0200) tritt nach 
dem Zeichnen des BOBs in Er- 


scheinung. 
BOBNIX (&H0800) kommt 
nach der Ausführung von 


»DrawGList« bei einem aus der 
GEL-Liste entfernten BOB zum 
Einsatz. 

BOBSAWAY (&H0400) falls ge- 
setzt, wird BOB beim nächsten 
‚Aufruf von »DrawGlist« aus der 
GEL-Liste entfernt. 

SAVEBOB (&H0001) Sichern 
des Hintergrundes (entspre- 
chend VSSAVEBACK) 
BOBISCOMP (&H0002) BOB 
ist Tell einer Animationskompo- 
nente (siehe BobComp) 
»SaveBuffer« enthält die Adres- 
se des Speicherbereiches, in 
dem der Bildhintergrund des 
BOBs gespeichert wird. 


Rastrart 


Bild 1. Stark vereinfachte Darstellung des Amiga-Animations-Systems 


NOASONERHETTDOMECOMEUTERWOR.D.2OM 


PlanePick 


PlansOnoff 


Bildschirm Planes 


Bild 2. Abbildung von BOBs auf dem Bildschirm mit »PlanePick« und »PlaneOff« 


Der zugehörige Speicher 
muß der Programmierer allo- 
kieren, wobei darauf zu achten 
ist, daß alle entsprechend »Pla- 
nePick« und »PlaneOnOff« 
überschriebenen Bitplanes re- 
stauriert werden können. Auch 
der Speicher für »ImageSha- 
dow« muß vom Programmierer 
dem System entrissen werden. 
Dieser Speicherbereich enthält 
dann die logische oder Ver- 
knüpfung der Bitplanes des 
BOBs, was wie ein Schatten- 
wurf des BOBs wirkt. Die Varia- 
blen »Before« und »After« zei- 
gen auf GELs, die vor oder 
nach diesem BOB gezeichnet 
werden. 

Mit Hilfe des Zeigers »BobV- 
‚Sprite« finden wir wieder zu der 
VSprite-Struktur zurück, die mit 
diesem BOB verknüpft ist. Das 
Animations-System des Amiga 
gestattet es, mehrere BOBs zu 
»Animations-Komponenten« zu 
verbinden, die zusammen als 
ein einziges Objekt dargestellt 
werden. Der zu diesen Objek- 
ten gehörige Verwaltungsauf- 
wand ist aber so groß, daß er Im 
Rahmen dieses Artikels nicht 
besprochen werden kann, Aus 
diesem Grund ist dieser Zeiger 
hier immer auf Null gesetzt. 
Möchte man BOBs auf doppelt 
gepufferten Bildschirmen dar- 
stellen, muß der Hintergrund für 
jeden der beiden Speicherbe- 
reiche separat gesichert wer- 
den. Hierfür dient der Zeiger 
»DBuffer« auf eine DBufPacket- 
Struktur. Entsprechend den 
VSprites ist auch in der BOB- 
‚Struktur noch Raum für eigene 
Erweiterungen des Program- 
mierers, die an den DBuffer- 
Zeiger angehängt werden kön- 
nen. 


Wie bereits bemerkt, wird ein 
BOB in den Bildschirmspeicher 
gezeichnet. Dies heißt aber, daß 
ein BOB nicht aus mehr Bitpla- 
nes bestehen kann, als im Bild- 
schirm vorhanden sind. Sehr 
wohl kann ein BOB dagegen 
aus weniger Bitplanes beste- 
hen, als der Farbanzahl des 
Bildschirms entsprechen wür- 
de. Die Handhabung derartiger 
Fälle wird durch »PlanePick« 
und »PlaneOnOff« geregelt. In 
unserem Beispiel in Bild 2 ha- 
ben wir einen aus zwei Bitebe- 
nen bestehenden BOB vorlie- 
gen, der in einem Bildschirm 
mit fünf Bitplanes dargestellt 
werden soll. Die Variable »Pla- 
nePick« gibt an, in welche Bit- 
planes die beiden Planes des 
BOBs gezeichnet werden sol- 
len. Zusätzlich legt »BitOnOff« 
fest, in welche Bildschirmpla- 
nes der »Schatten« des BOBs 
eingefügt werden soll, was eine 
Änderung der Farbdarstellung 
des BOBs zur Folge hat. Dabei 
wird der Schatten nur dann ein- 
gefügt, wenn das Bit der ent- 
sprechenden Bitplane in »Plane- 
Pick« nicht gesetzt ist. Dies 
zeigt uns einen Weg, wie wir die 
für den »SaveBuffer« nötige An- 
zahl von Bitplanes ermitteln 
können: 

Wir drehen in »PlanePick« al- 
le Bits um, so daß nun eine »O« 
die benötigte Bitplane bedeu- 
tet. Anschließend bilden wir ein 
logisches »UND« mit »Plane- 
OnOff«. So erhalten wir an allen 
Stellen, an denen in »PlaneOn- 
Off« ein Bit gesetzt war-in»Pla- 
nePick« dagegen nicht -ein ge- 
setztes Bit. Zählen wir diese 
Bits, so erhalten wir die Anzahl 
der Bitplanes, in die ein Schat- 
ten gezeichnet wird. 


BB WW. HOMESOMSUTERWORLD.ZGM. 


‚Addieren wir noch die Anzahl 
der Bitplanes, die der BOB 
selbst besitzt, so wissen wir, für 
wie viele Bitplanes der »Save- 
Buffer« ausgelegt werden muß. 

Damit wird es nun Zeit, etwas 
konkreter zu werden und uns 
dem Demo-Listing (Listing 1) 
zuzuwenden. Der erste Ein- 
druck von diesem Listing 
täuscht allerdings, denn es wird 
hier auf zahlreiche Unterpro- 
gramme aus dem vorhergehen- 
den Artikel über VSprites zu- 
rückgegriffen. Um uns das mü- 
hevolle Eintippen der Daten 
des BOBs zu ersparen, baut 
sich der BOB aus Zufallsdaten 
auf. Aus diesem Grund fällt im 
Listing auch nicht auf, daß die 
Daten eines BOBs etwas an- 
ders aufgebaut sind als bei 


Hier folgen die Bitplanes voll- 
ständig nacheinander, die den 
BOB beschreiben, z.B.: 
BOB-Daten = (Bitplanel, 
Bitplane2) 

Wir beschränken uns nur auf 
einen BOB, denn die Verarbei- 
tung von Kollisionen unter- 
scheidet sich nicht von der von 
den VSprites bekannten Metho- 
de. Um einen BOB zu erstellen, 
müssen an das Unterpro- 
gramm »NewBob« (in dieser 
Reihenfolge) die folgenden Ar- 
gumente übergeben werden: 

- ein Zeiger, der nach Beendi- 
gung des Unterprogramms die 
Adresse der zum BOB gehöri- 
gen VSprite-Struktur enthält 

- Flags für die VSprite-Struktur 
- Flags für die BOB-Struktur 

- die Position der linken, oberen 
Ecke des BOBs 

- die Höhe und die Breite des 
BOBs in Pixeln 

- die Anzahl der Bitplanes des 
BOBs 

- die beiden Masken zur 
Kollisions-Detektion 

- ein Zeiger auf die Bilddaten 
- die Werte für »PlanePick« und 
»PlaneOnOff« sowie die von Ih- 
nen hinzugefügten Geschwin- 
digkeiten. 

Es gibt in diesem Beispiel-Li- 
sting noch eine globale Kon- 
stante mit dem Namen »DOU- 
BLEBUFFER«, die angibt, ob 
der BOB in einem (vom Pro- 
grammierer noch zu implemen- 
tierenden) doppelt gepufferten 
Bildschirm angezeigt wird. 

Damit wollen wir den zweiten 
Teil über grafische Elemente 
beschließen und hoffen, Ihnen 
die Arbeitsweise von Sprites 
und BOBs nähergebracht zu 


Sprites: haben. ag 
R Programmname; BOB 
Computer: A500, A1000, A2000 mit Kickstart 
1.2& 13 
Sprache: AmigaBasic 


vr 


4 
5 
6 


BIBASH 


om 


'rgeugen von und Umgang mit Blitter Objekten (Bobs) 


Platzgründen keine Fehlerabfragen << 


AnigaDos, Kick 1.3 
Version: 1,0 (2-Tan-90) 


‚AMIGA-SONDERHEFT 10 


Ki NOW-HOW 


ER — ee de 
woNa ' >>>>> Ende der allgemeinen Variablen <<<<< 
am! -—_— 
2 CL ! Soll Double Buffering benutzt werden? 


WR e6 ' 0 = Nein, (1 = Ja: siehe Artikel über dieses Thema) 
\@RE6\ DIM SHARED DOUBLEBUFFER 
25 Jw | DOUBLEBUFFER = 0 
26 '-- -<HAUPTPROGRANH> 
27 xU ' Größe des Bobs 
28 00. DIM SIIARED BWIDTH, BHEIGHT, BDEPTH 
WALON BWIDTH = 64 : BHEIGHT = 40 ; BDEPTH = 2 
104g main: 
31 0K2 vopk = O& 


3a an Initialtze 
ak x = INT( 600 „RD ) 
BU E  y = INT( 200.4 AND) 
vx = INT 10yAND-5) 
w = INT 10, RD -5) 
w = BWIDTH : h = BHEICHT : d = BDEPTH 
NeuBob vspk, VSSAVEBACK,O,x,ysh,w,d,1,1,ImageData&,3,0,vx, 
w 
DisplayGELs 
WHILE NOT MOUSE(0) 
x = PEEKW(vp&+veX) + PREKU(vspk+vavX) 
y = PEEKW(vep&+vsY) + PEEKW(vsp&vsVY) 
POKEN (vapk+vaX), x 
POKEW (vsp&+vsY), y 
DisplayGELs 
WEND 


30 br Si SSR 
U 03 = BHEICHT 4 BDEPTH 
EIER en = AllocRaster&( BWIDTH, hä ) 


W9 ha = BWIDH u nd- 1 

WARE, FOR 1 = 0 TO.nd 

53 Ma6 POKE (ImageDatag+i), INT 255 „ AND ) 
6 NER 


RANDOMIZE TIMER 
Setoonst 
SetStructs 
NevBobDate 
WINDOW 2, "Bob Demo”, (0,0)-(630,240),0 
RPort& = WINDOW(8) 
Wink = WINDOW(7) 
VPort& = ViesPortäddressä( Win& ) 
NevGELsInfo 0, 0, 630, 240 
NakeCo11Subs 
70 ACO END SUB 
71 Ba SUB Finalize STATIC 
Freelienk Borderiiitk, 100 
N | FreeAllgEls 
Ta ra DisplayGELs 
75 08 FreeGELsInfo 
WINDOK OLOSE 2 
BR BHD = BHEICHT „ BDEPTH 
MBitO Freeiasterk ImageDatak, BWIDTH, BHD 
179.110 END SUB 
1 -< Initialisierung von Bobs >--- 
BI FW SUB NewBob( vab,vf,bf,x,y,h,w,d,am,hm,idk,pp,po,vx,vy ) 
STATIC 
Bl we=w\16 
BAM f = vf AND NOT ISWSPRITE 
BAD WeuGEL vs&,2,b£,x,y,h,wv,d,na,hn, 1d&,0&,pp,Po,vx,Vy, 
DOUBLEBUPFER 
‚89 PRO END SUB 
BER ı--- 
MB '>>> Aigeneine ee ae 
BRNG 1. 
ES NG 'Hier müssen die entsprechenden Interprograme aus den 
90\gul Artikel über virtuelle Sprites eingesetzt werden 
310 1-- 
Gemi ' >>> Ende der allgemeinen GELs - Unterprogramme <<< 
am 
(C) 1990 Mar 


Listing. Demo-Programm zur Erzeugung und 
Darstellung von BOBs 
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\ Erst Compiler 
‚machen Amiga- 
Basic-Program- 
men Beine. Wie 
es zu diesem 
Geschwindigkeits- 
schub kommt, 
verrät Ihnen die- 
ser Artikel. 


Von Thomas Hauser 


je Programmier-Walt, in 

der unser Amiga ange- 

siedelt Ist, wird von drei 
Sprachprinzipien dominiert 

Interpreter-Sprachen wie das 
allseits wegen seiner \Ge- 
schwindigkeit geschätzte Ba- 
sic, Compiler-Sprachen wie 
„Ca oder »MODULA« die sich 
einen Jux daraus machen, die 
27 Byte einer Bildschirmlösch- 
routine in einem 30 KByte gro- 
Ben File zu verstecken, und - 
last but not least = die für ihre 
kurzen und prägnanten Quell- 
texte bekannte Assembler-Spra- 
che. Compiler- und Assembler- 
Sprache haben eine Gemein- 
‚samkeit; 

Der Programm-Text wird zu- 
erst in \ Maschinensprache 
übersetzt, bevor an die Ausfüh- 
rung eines Programms gedacht 
werden kann, Dadurch werden 
‚sämtliche Verwaltungsarbeiten 
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und Syntax-Checks \von dem 
lauffähigen Programm ferngen 
halten, da sie bereits bei den 
Compilierung - der »Überset 
zung« von Hochsprache in Ma- 
schinensprache - durchgeführt 
werden. Nachteilig an diesem 
Verfahren ist, daß jeder Pro- 
grammänderung erst ein Com- 
piler-Durchlauf folgen muß, ehe 
das Ergebnis der Ändarung »Ii 
ve« erlebt und ausgetestet wer- 
den kann. 

‚Anders bei den Interpreter- 
Sprachen. Da holt sich der In- 
terpreter während des Pro- 
grammlaufes gemächlich Zei- 
‚chen für Zeichen aus dem Pro- 
‚gramm-Text. Versucht zu erra- 
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ten, was der Programmierer ge- 
meint haben könnte und sucht 
sich aus seinem Maschinen- 
sprache-Routinen-Fundus das 
Passende heraus. »Holen«, »ra- 
ten«, »suchen« und auch alle 
Zulässigkeitsprüfungen werden 
während der Programm-Abar- 
beitung durchgeführt - da wird 
mehr gebremst als Gas gege- 
ben. Daß der Interpreter-Be- 
trieb, im Gegensatz zu den »rei- 
nen Compilersprachen«, einen 
Direktmodus erlaubt und das 
Editieren und Neustarten von 
Programmen kurzfristig und 
ohne Umwege möglich ist, 
kann die Nachteile kaum auf- 
wiegen. Nein, das Basic, das 
dem Amiga in die Wiege (sprich 
Verpackung) gelegt wurde, läßt 
wirklich keine Begeisterungs- 
stürme aufkommen, von einem 
Geschwindigkeitsrausch ganz 
zu schweigen. 

Gott sei Dank haben die Ne- 
gativ-Eigenschaften des Amii 
Basic bei einigen hochkaräti- 
gen Programmierern den Denk- 
prozeß angeregt! Das Ergebnis 
dieser Grau-Zellen-Akrobatik 
sind die für den Amiga erhält- 
lichen Basic-Compiler. Gleich 
aus welcher Ecke dieser Welt 
sie kommen und wie auch im- 
mer sie heißen, Basic-Compiler 
machen aus einem Basic-Pro- 
gramm ein reinrassiges Ma- 
schinenprogramm. Die damit 
verbundenen Vorteile liegen 
auf der Hand: Während der 
Programmentwicklung mit ih- 
ren häufigen Test- und Korrek- 
turphasen stehen dem Ent- 
wickler die Bequemlichkeiten 
des Basic-Interpreters zur Ver- 
fügung. Sobald aber die Ent- 
wicklungsphase abgeschlos- 
sen ist und der Wunsch nach 
Geschwindigkeit und Unab- 
hängigkeit vom Basic-Interpre- 
ter übermächtig wird, genügt 
ein simpler Compiler-Durch- 
lauf, um aus dem Basic-Pro- 
gramm ein Maschinenpro- 
gramm mit professionellen Ab- 
arbeitungszeiten zu machen, 
Was die Basic-Beschleuniger 
im Detail leisten, was sie kön- 
nen und worauf bei der Arbeit 
mit ihnen zu achten ist, dazu 
gibt es auf den folgenden Sei- 
ten ausführliche Artikel. Der 
vorliegende Beitrag soll Ihnen 
lediglich einen kleinen, allge- 
meingültigen Einblick in die 
Welt der Amiga-Basic-Compiler 
vermitteln. 

Was bietet sich dem tempo- 
süchtigen Basic-Freund bei sei- 
nem ersten Blick in die Compi- 
ler-Landschaft? Erfreulicher- 
weise prägt nicht mehr Monoto- 
nie das Bild. Nein - Vielfalt ist 
angesagt! 
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Bild 1. Tapfer kämpft sich der Interpreter durch den 


Programm-Text 


Das war nicht immer so. Zu 
Beginn des Amiga-Zeitalters 
war der »AC/Basic-Compiler« 
der amerikanischen »Absoft - 
Corporation« der einzige ver- 
fügbare Compiler für den von 
»Microsoft« auf dem Amiga im- 
plementierten Basic-Dialekt. In 
der Zwischenzeit teilen sich 
den Amiga-Basic-Compiler- 
Markt der bereits erwähnte 
»AC/Basic-Compiler«, der »GFA- 
Basic-Compiler« und der »HI- 
SOFT-Basic-Compiler«, wobei 
besonders das »GFA-Basic« 
durch seinen stark erweiterten 
Interpreter-Befehlssatz auffällt. 
Über »TRUE-Basic« und »F-Ba- 
sic« sprechen wir ein andermal, 
da sich beide auf dem euro 
päischen Markt nicht durchset- 
zen konnten. 


Aller guten 
Dinge sind drei 


Die drei für den Amiga-Ba- 
sic-Anwender relevanten Com- 
piler sind alle in ausreichendem 
Maße kompatibel zu Amiga- 
Basic, was bedeutet, daß Stan- 
dard-Basic-Programme; die un- 
ter Kontrolle des Interpreters 
klaglos ablaufen, ohne größere 
Schwierigkeiten und Änderun- 
gen compiliert werden können 
(ganz ohne Adaptierungsarbei- 
ten geht es aber selten ab!). Zu- 
sätzlich bieten die Compiler 
noch mehr oder weniger um- 
fangreiche Befehlserweiterun- 
gen, die teils der Steuerung des 
Compilers dienen, teils aber 
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‚echte Erweiterungen des Basic- 
Befehlssatzes darstellen und 
damit die Arbeit mit Amiga- 
Basic effizienter und professio- 
neller machen. Es darf aber 
nicht übersehen werden, daß 
durch den Gebrauch compiler- 
spezifischer Kommandos die 
Kompatibilität eines Basic-Pro- 
gramms zum »normalen« 

Microsoft-Basic-Interpreter 
eingeschränkt werden kann. 

Nun ein paar Worte über die 
Arbeitsweise eines Compilers 
im allgemeinen und eines Ba- 
sic-Compilers im besonderen. 
Ein »Compiler« wandelt den 
»Klartext« eines in einer »Hoch- 
sprache« wie Basic, C, Modula 
oder Fortran geschriebenen 
Programmes in die vom Pro- 
zessor direkt ausführbare »Ma- 
schinensprache«, also eine Fol- 
ge von gesetzten und gelösch- 
ten Bits. Das tut ein Interpreter, 
z.B. der Basic-Interpreter, bei 
der Abarbeitung eines Pro- 
gramms prinzipiell auch, doch 
kommt im Interpreter-Betrieb 
noch hinzu, daß während des 
Programm-Ablaufes jede Men- 
ge Verwaltungsarbeit zu leisten 
ist - z.B. Variablen anlegen, 
Syntax überprüfen, Sprungzie- 
le ermitteln usw. 

Der Compiler hingegen spielt 
das eingelesene Programm so- 
zusagen »einmal für sich allein 
durch« und wandelt dabei je- 
den Programmbefehl in eine 
Folge von direkt ausführbaren 
Maschinenbefehlen um, die er 
auch gleich in ein Programmfile 
einträgt. Auch ein Großteil der 


bereits mehrfach erwähnten 
»Verwaltungsarbeiten« kann 
bereits bei der Compilierung er- 
ledigt werden. In der Akzeptanz 
eines Programmtextes ist ein 
Compiler noch genauer als der 
Interpreter, was die »äußere 
Form« von Programmen oder 
die Programm-Strukturen an- 
belangt. Es kann schon vor- 
kommen, daß ein Compiler bei 
seinen Übersetzungsbemü- 
hungen eine Programm-Un- 
sauberkeit reklamiert, die den 
Interpreter nicht einmal zu ei- 
nem kurzen Aufschnaufen ver- 
anlaßt hätte. Ein Label, das nie 
angesprungen wird, wird vom 
Basic-Interpreter einfach igno- 
riert. Ein guter Compiler macht 
den Benutzer auf solche Dinge 
aufmerksam. 

Leider gibt es Basic-Compi- 
ler nicht geschenkt! All die auf- 
geführten positiven Eigenschaf- 
ten und Fähigkeiten der Compi- 
ler kosten Geld - da stellt sich 
die Frage: »Wer braucht einen 
Basic-Compiler?« 

Klare Frage - klare Antwort: 
Jeder, dem der Basic-Interpre- 
ter nicht schnell genug ist, und 
auf den Komfort der Program- 
mierung in Basic nicht verzich- 
ten will. Und jeder, der seine 
Basic-Programme unabhängig 
vom Interpreter betreiben und 
vielleicht verkaufen will, kommt 
um den Erwerb eines Basic- 
Compilers nicht herum. Die 


Vom Befehl 
zu O oder 1 


meisten Compiler-Hersteller 
gestatten gegen eine geringe 
(bis gar keine) Gebühr das Ko- 
pieren der jeweiligen Run- 
Time-Library, womit einer Ver- 
vielfältigung des compilierten 
Programmes und einer kom- 
merziellen Nutzung nichts 
mehr im Wege steht. 

Was eine »Run-Time-Libra- 
ry« ist? Ach ja, darüber haben 
wir noch nicht gesprochen. Al- 
so: Ein Compiler macht aus ei- 
nem Hochsprachen-Quelltext 
ein Maschinensprachepro- 
gramm - so weit, so gut. Aus 
fünf Quelltexten werden fünf 
Maschinenprogramme - auch 
gut. Wenn in jedem dieser fünf 
Programme das Zeichen »A« 
auf dem Bildschirm ausgege- 
ben werden soll und es die Ein- 
richtung »Run-Time-Library« 
nicht gäbe, müßte in jedem der 
fünf Einzelprogramme der volle 
Befehlscode für die Ausgabe 
eines beliebigen Zeichens auf 
dem Bildschirm eingebunden 
sein. Da ist es doch nahelie- 
gend und (speicher)platzspa- 
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rend, all jene Programmteile, 
die von allgemeinem Interesse 
sind (wie Textausgabe, Einga- 
beroutinen etc.), in einer »Bi: 
bliothek« abzulegen, auf die je- 
des Einzelprogramm beliebig 
zugreifen kann, um sich bei Be- 
darf die Instruktionen, die benö- 
tigt werden, herauszuholen und 
anzuwenden. 


Eine Bibliothek 
für alle 


Es soll an dieser Stelle aller- 
dings nicht verschwiegen wer- 
den, daß alle Compiler auch auf 
Wunsch die Routinen in das 
Programmfile einbinden. So 
entsteht ein Programmfile, das 
eigenständig lauffähig ist, dafür 
‚aber von beeindruckender Grö- 
Be ist. Was Sie bevorzugen, 
bleibt Ihnen überlassen. 

Doch einige Ansprüche stel- 
len die Compiler schon an das 
»Programm-Futter«, das sie 
verdauen und veredeln sollen. 
Zum Beispiel muß das zu com- 
pilierende Programm dem 
Compiler in Form eines ASCII- 
Programm-Textes übergeben 
werden. »ASCll« bedeutet in 
diesem Fall nicht nur »Ameri- 
can Standard Code for Informa- 
tion Interchange«, sondern viel- 
mehr, daß keinerlei Steuerzei- 
chen oder ähnliche, nicht direkt 
zum Programmtext gehörende 
Zeichen in diesem Text-File vor- 
kommen dürfen. Aus dem 
Basic-Interpreter heraus spei- 
chern Sie Ihr Programm mit der 
Option »,a« ab, um den Pro- 
gramm-Text im ASCII-Format 
zu sichern. Schreiben Sie Ihre 
Programme vorzugsweise mit 
einem Textverarbeitungspro- 
gramm wie »Beckertext« oder 
»Scriptum«, so wählen Sie bitte 
zur Speicherung die »TEXT«- 
bzw. »ASCll«-Funktion. Verges- 
‚sen Sie aber bitte nie, daß we- 
der Amiga-Basic noch ein Ami- 
ga-Basic-Compiler mit deut- 
schen Sonderzeichen in Varia- 
blennamen und Sprungzielen 
klarkommen! 

Beginnen wir mit einer Ge- 
meinsamkelt in der Arbeitswei- 
se von Interpreter und Compi- 
ler, bevor wir auf die Unterschie- 
de zu sprechen kommen: Inter- 
preter wie Compiler holen sich 
die Programm-Befehle Stück 
für Stück, Zeichen für Zeichen, 
aus dem Programm-Text, set- 
zen die Einzelzeichen zu Wor- 
ten, Befehlen etc. zusammen 
und führen die notwendigen 
Syntax- und Bereichsüberprü- 
fungen durch. Damit sind wir 
am Ende der Gemeinsamkei- 
ten (die wir übrigens in Bild 1 


und Bild 2 skizziert haben), 
denn: Beim Interpreter ge- 
schieht dieses »Zusammensu- 
chen« während jedem Pro- 
grammablauf, beim Compiler 
nur ein einziges Mal während 
der Compilierung. Das ist eine 
der Hauptursachen dafür, daß 
compilierte Programme schnel- 
ler ablaufen als ihre Interpreter- 
‚Aquivalente. Wie schnell die 
Zeit dabei vergeht, haben wir in 
Form von stilisierten Zeitmes- 
sern versucht zu illustrieren, 
Sie erkennen deutlich, daß im 
hypothetischen Basic-Pro- 
gramm, welches den Abläufen 
in Bild 1 und Bild 2 zugrunde 
liegt, der größte Teil der Zeit für 
Such- und Verwaltungsarbeit 


ünd_übe: 
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zung in ein Programm-File ein- 
zutragen. Wird dann das com- 
Pilierte Programm gestartet, so 
istnur noch das Maschinenpro- 
gramm stur der Reihe nach ab- 
zuarbeiten, sozusagen »ohne 
viel Nachdenken«, ohne »Büro- 
kratie« und dementsprechend 
schnell. 

Ein Basic-Compiler bearbei- 
tet bei der Übersetzung des 
Quell-Textes das ganze Pro- 
gramm, während ein Interpre- 
ter nur jene Programmtelle un- 
ter die Lupe nimmt, die ihm vom 
Programmlauf vorgeschrieben 
werden. Wenn Sie sicher sein 
wollen, daß ein Basic-Programm 
unter allen Umständen funktio- 
niert, müssen Sie auf Interpre- 
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mert die Zeitbombe in aller Un- 
schuld in Ihrem Programm - 
schön, was? Anders sieht es 
aus, wenn Sie Ihr Basic-Pro- 
gramm durch einen Compiler 
jagen. Basic-Compiler versu- 
chen (grundsätzlich oder auf 
Wunsch), alle Möglichkeiten 
des Programm-Ablaufs bei der 
Übersetzung zu berücksichti- 
gen. Das braucht zwar seine 
Zeit, hat aber dafür den Vorteil, 
daß alle Programmteile über- 
setzt und damit auch auf kor- 
rekte Syntax eto. überprüft wer- 
den. Auf Pannen wie fehlerhaf- 
te Eingaben oder Zahlenbe- 
reichsüberläufe müssen Sie 
selbst Ihr Programm vorberei- 
ten - hier enden Macht und Fä- 


Fehlerneldung 
ausgeben un 

Compilation 
wenn nöglich 


START 


Bild 2. Auch der Compiler hat viel zu tun bei der Übersetzung 


verwendet wird - sowohl im 
Interpreter-Betrieb als auch bei 
der Compilation. Aber welch 
ein Unterschied in den Zeitmar- 
ken zeigt sich zwischen Bild 1 
und dem rechten Teil von Bild2, 
der den Ablauf des Compilats 
symbolisiert. 

Sobald der Interpreter eine 
Befehlsfolge aus dem Pro- 
gramm-Text als zulässig klassi- 
fiziert hat, führt er sie umge- 
hend aus, »Ausführen« heißt, 
daß die den jeweiligen Befehlen 
zuzuordnenden Interpreter-Rou- 
tinen aktiviert und abgearbeitet 
werden, die natürlich in Maschi- 
nensprache vorliegen. Im Ge- 
gensatz dazu beschränkt sich 
der Compiler darauf, diese Be- 
fehle nach der Zulässigkeits- 
prüfung in Maschinensprache 
umzusetzen und die Umset- 
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ter-Ebene Testläufe durchfüh- 
ren, bei denen Sie alle Even- 
tualitäten durchspielen (kaum 
vorstellbar, wenn Ihr Programm 
mehr tut als nur zwei Integer- 
zahlen zu addieren). Das heißt 
auf jede »IF«-Verzweigung ein- 
gehen, alle Variablen in deren 
komplettem Zahlenbereich 
durchtesten usw. Tun Sie das 


Compiler 
übersetzen 


nicht, müssen Sie damit rech- 
nen, daß ein Tippfehler in der 
dritten verschachtelten IF-Ab- 
frage erst dann als »SYNTAX 
ERROR« erkennbar wird, wenn 
durch außergewöhnliche Um- 
stände der Interpreter das erste 
Mal in diese IF-Situation ge- 
bracht wird. Bis dahin schlum- 


higkeiten eines Compilers, 
Schließlich ist es nicht die 
Hauptaufgabe eines Compi- 
lers, ein Programm zu schrei- 
ben, sondern lediglich, es zu 
übersetzen. 

Warum Compilate von Basic- 
Programmen schneller ablau- 
fen als »normale« Basic-Pro- 
gramme, die unter der Knute 
des Interpreters stehen, wollen 
wir mit einem kleinen Beispiel 
verdeutlichen: Stößt der Inter- 
preter auf einen »GOSUB xxxx«- 
Befehl, so durchsucht er den 
gesamten Programm-Text von 
‚Anfang bis (mit etwas Pech) En- 
de nach dem gewünschten 
Ziel-Label. 

Bei größeren Programmen 
mit vielen Unterprogramm-Auf- 
rufen geht daschon ein ganzes 
Stück an Zeit den Bach hinun- 
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Bild 3. So könnte 
die Analyse einer 
Programmzeile 
durch den Inter- 
reter verlaufen 
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ter. In einem compilierten Pro- 
gramm steht anstelle des »GO- 
SUB xxxx«-Befehls ein Sprung- 
befehl direkt an die Stelle, an 
der die gewünschte Unterrouti- 
ne steht. Denn im Gegensatz 
zum Interpreter, derjaeben erst 
die Notwendigkeit erkannt hat, 
sich nach der Position der 
Subroutine »xxxx« umzusehen, 
hat der Compiler diese Suche 
bereits während der Compilie- 
rung durchgeführt und das Er- 
gebnis dieser Suche in das Pro- 
gramm eingetragen. 

Ein weiterer Grund für die 
langsame Abarbeitung von 
Programmen durch den Basic- 
Interpreter ist im Kernstück des 
Interpreters zu suchen: In je- 
nem Bereich nämlich, der die 
Programmzeilen Stück für 
Stück holt und auswertet, eben 
»interpretiert«. Um Ihnen einen 
Begriff davon zu vermitteln, 
was der gestreßte Interpreter al- 
les zu beachten hat, wenn er el- 
ne Basic-Zeile abarbeitet, ha- 
ben wir ein Stück des Flußdia- 
gramms jenes Interpreter-Teiles 
skizziert, der dafür zuständig 
ist. Die Betonung liegt auf 
»Stück« und auf »skizziert«, 
denn wir haben keine Pro- 
gramm-Analyse des Basic-In- 
terpreters vorgenommen - die- 
ses Sonderheft sollte ja noch in 
diesem Jahrtausend erschei- 
nen, und jeder, der einmal ein 
fremdes Maschinenprogramm 
analysiert hat, weiß, welche 
Horror-Arbeit es ist, ein solches 
in ein Flußdiagramm umzuwan- 
deln. Die Grundaussage des 
Diagramms ist aber richtig. Der 
Interpreter verbringt 90 Prozent 
der Abarbeitungszeit eines 
Basic-Programms damit, aus 
den Einzelzeichen einer Pro- 
grammzeile die Befehle her- 
auszufiltern, die Zulässigkeit 
der Befehle z.B. in bezug auf 
deren Position innerhalb der 
Befehlssequenz zu überprüfen, 
die Möglichkeit einer Varlablen- 
zuweisung zu testen und wenn 
ja, den entsprechenden Verwal- 
tungsaufwand zu betreiben 
usw. Wir sind sicher, daß Sie 
nach dem Studium von Bild 3 
etwas mehr Verständnis für das 
Tempo des Basic-Interpreters 
aufbringen werden. Aber etwas 
verstehen heißt ja noch lange 
nicht, es auch zu billigen oder 
gar, sich damit abzufinden. 

Soweit unser Kurzreferat 
zum Thema »Basic-Compiler«. 
Wenn es für Sie interessant und 
informativ war, hat es seinen 
Zweck erfüllt, Ihre Erfahrungen 
mit dem einen Basic-Compiler 
müssen Sie schon selbst ma- 
chen - glauben Sie uns: es 
lohnt sich! pe 
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Wenn es Porsche 
zu langsam geht, 
dann packen sie 
noch Turbo-Power 
in ihre Boliden. 
Auch sportlichen 
Amiga-BASIC- 
Usern steht ein 
Turbo-Powerpack 
zur Verfügung: 
der AC/BASIC- 
Compiler! 


Von Thomas Hauser 


eit es den AMIGA gibt, 

gibt es auch AMIGABA- 

SIC. Das eine paßt zum 
anderem wie das Haar in die 
Suppe. Hier die Hardware, 
hochgezüchtet und blitzschnell, 
dort das BASIC - zum Gähnen. 
Es soll Leute geben, die auf die 
Frage »Hast Du 'nen 64er-Emu- 
lator?« mit »Na klar: AmigaBa- 
sic!« antworten. Naja, einen 
schlechten Ruf hat man schnell 
weg, und die Welt ist voller Un- 
gerechtigkeiten. Viele Pro- 
gramm-Autoren haben schon 
bewiesen, daß bei gezielter Ver- 
wendung der Betriebssystem- 
Routinen passable bis gerade- 
zu verblüffende Arbeitsge- 
schwindigkeiten erreichbar 
sind. Doch nicht jeder kann 
oder will sich mit den Aufruf- 
Konventionen abplagen. Die 
Lesbarkeit von Programmen, 
die mit »CALLs« und »FUNC- 
TIONs« vollgestopft sind, reicht 
schon fast an »C« heran, und 
der Interpreter bleibt nach wie 
vor ein Klotz am Bein. Da gibt's 
eigentlich nur eine Alternative: 
Ein BASIC-Compiler muß her! 
Wie wär's mit dem AC/BASIC- 
Compiler von Absoft? 

Der vorliegende Beitrag be- 
faßt sich ausschließlich mit dem 
ACI/BASIC-Compiler, seinen 
spezifischen Eigenschaften 
und seinem Einsatz in der tägli- 
chen Praxis, 


in den Tank 


Der »Compiler der ersten 
Stunde« für AMIGA-BASIC war 
der AC/BASIC-Compiler aus 
der Absoft-Software-Schmiede. 
Dieser Compiler besticht nach 
wie vor durch seine hohe (wenn 
auch nicht uneingeschränkte) 
Kompatibilität zu AmigaBasic- 
Programmen, seine klare und 
bequeme Benutzerführung 
und eine zufriedenstellende Ar- 
beitsgeschwindigkeit des Com- 
pilats. Der Zeitbedarf für das 
Compilieren selbst darf als - für 
einen 3-Pass-Compiler - völlig 
zufriedenstellend bezeichnet 
werden. Dazu kommt noch das 
Fehlen eines Kopierschutzes 
der Diskette, wodurch sowohl 
Sicherungskopien als auch die 
Installation auf einer Festplatte 
problemlos möglich sind. Der 
beste Kopierschutz ist eben 
noch immer ein umfangreiches 
Handbuch. 


ACIBASIC 
war der erste 


Seit Vorliegen der Version 1.3 
kann man den AC/BASIC-Com- 
piler wirklich bedenkenlos emp- 
fehlen, was man sich bei den 
älteren Releases dieses Pro- 
dukts lieber überlegen sollte, 
wie diverse Test- und Erfah- 
rungsberichte erkennen ließen. 

Was wohl die meisten BASIC- 
Fans vom Erwerb des Compi- 
lers abhält, ist der etwas hohe 
Preis von knapp 300 Mark. 
‚Aber der Compiler (besonders 
in seiner neuesten Version 1.3) 
ist diesen Preis sicher wert. 
Doch wer legt schon drei 
Scheinchen auf die Theke für 
ein Produkt, das er nur aus 
mehr oder weniger oberflächli- 
chen Besprechungen und Tests 
kennt? 

Leider war Absoft nicht wil- 
lens, dem Beispiel anderer 
Software-Firmen zu folgen und 
eine eingeschränkt funktionsfä- 
hige Version ihres Produkts in 
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der PD-Szene zu plazieren. 
Dem potentiellen Käufer dieses 
Compilers blieb also, wollte er 
nicht die Katze im Sack kaufen, 
bisher nichts anderes übrig, als 
sich aus diversen Testberichten 
seinen Teil zusammenzurei- 
men. Im vorliegenden Artikel 
vermitteln wir Ihnen einen et- 
was tieferen Einblick in das Ar- 
beiten mit dem AC-BASIC- 
Compiler. Vielleicht sitzen die 
Scheinchen hernach lockerer 


OMPILER 


pe sind die potentiellen Käufer 
eines BASIC-Compilers, die 
noch zwischen dem Absoft- 
Produkt und einem seiner Mit- 
bewerber schwanken. Dritte 
und letzte Zielgruppe sind die 
Besitzer einer Raubkopie - wir 
hoffen, jenen derart Appetit auf 
das Studium des Handbuchs 
machen zu können, daß sie 
sich vielleicht doch zum Kaufei- 
nes Originals entschließen. Al- 
so dann: Rein ins Vergnügen! 

Der Absoft-Compiler ist ein 
hochgezüchtetes Stück Soft- 
ware-Ingenieurkunst. Doch wie 
alle High-Tech-Produkte stellt 
auch der AC/BASIC-Compiler 
gewisse Ansprüche an seine 
Umgebung, und wenn diese 
Ansprüche nicht befriedigt wer- 
den, verweigert er den Dienst 
oder - noch gemeiner - er tut 
nur so, als ob, und bei der er- 
sten sich bietenden Gelegen- 
heit stürzt er den Anwender in 
ein Meer von Tränen. Also ge- 
ben wir dem Kaiser, was dem 
Kaiser gebührt. 


SOURCE FILE RE 
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Bild 1. Die AC/BASIC-Compileroberfläche bietet bequemen 
Zugriff auf seine Compiler-Optionen 


(oder Sie haben:sich eine fru- 
strierende Geldausgabe er- 
spart — beides soll uns recht 
sein). Doch sei für alle Besitzer 
einer Raubkopie gleich von An- 
fang an klargestellt: Dies wird 
kein Ersatz des Handbuches! 

Wir wollen mit diesem Artikel 
drei Zielgruppen ansprechen! 
Da wären zuerst einmal die stol- 
zen - weilrechtmäßigen - Besit- 
zer des Compiler-Pakets, de- 
nen der Einstieg etwas schwer 
fällt oder die mit dem (leider nur 
englischsprachigen) Benutzer- 
Handbuch nicht so ganz zu- 
rechtkommen. Zweite Zielgrup- 


Zunächst einmal verlangt der 
Absoft-Compiler nach einem 
Programmfile im ASCII-Format. 
Und zwar ASCII in Reinkultur! 
Wehe Ihnen und Ihrem Pro- 
gramm, wenn Sie da ein 
Druckersteuerzeichen oder 
ähnliches reinschmuggeln - 
die Strafe wird fürchterlich. Wie 
kommen Sie zu einem solchen 
File, bzw. wie kann man ein nor- 
males BASIC-Programm in ein 
ASCII-File verwandeln? 

Mit dem Amiga haben Sie 
mehrere Möglichkeiten, Ihre 
BASIC-Programme zu schrei- 
ben. Da wäre zunächst der im 
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BASIC-Interpreter implemen- 
tierte Programm-Editor (wer 
den verwendet, hat im allge- 
meinen keine andere Wahl). 
Wenn Sie damit Ihr Programm 
verfassen und dieses nach ge- 
taner Arbeit als ASCII-File ab- 
speichern wollen, müssen Sie 
unbedingt mit der »,a«-Option 
abspeichern! Im Klartext für al- 
le, welche die betreffenden Sei- 
ten im BASIC-Handbuch über- 
blättert haben; der BASIC-Inter- 
preter speichert Programmtex- 
te normalerweise in kompri- 
mierter Form, d. h. sämtliche 


ASCI 
muß es sein 


BASIC-Schlüsselworte wie 
»PRINT«, »INPUT« usw. werden 
in sogenannte »Token« (ver- 
gleichbar mit den Kürzeln in 
Steno) umgewandelt. Dadurch 
verringert sich Lade- und Ab- 
speicherzeit der Programmfi- 
les, und auch der Platzbedarf 
auf der Diskette ist geringer. Ist 
Ihnen diese Vorgangsweise 
des Interpreters nicht genehm, 
so müssen Sie ihm das explizit 
mitteilen. Dies geschieht beim 
Abspeichern eines Programms 
(nur beim Abspeichern) durch 
die Eingabe von: 

save "Filename”,a 

An der Endung »,a« außer- 
halb der Anführungszeichen 
erkennt der Interpreter, daß das 
aktuell im Speicher befindliche 
BASIC-Programm als ASCII- 
File abzuspeichern ist, Bei der 
Arbeit mit AMIGA-BASIC ha- 
ben Sie sicher schon gemerkt, 
wenn Sie »SAVE« oder »SAVE 
AS« in der Menü-Leiste anwäh- 
len, daß Sie im eingeblendeten 
File-Requester die Endung »,a« 
nicht eingeben können. Es 
bleibt Ihnen bei Programmen, 
die ursprünglich binär (ohne 
Endung oder mit der Endung 
»,b«) gespeichert wurden, nur 
der Weg über das Output-Win- 
dow. Glücklicherweise merkt 
sich der BASIC-Interpreter die 
Form des geladenen Programm- 
Files, so daß es reicht, wenn Sie 
einmal mit »,a« abspeichern. 
Das so gesicherte Programm 
wird von daan immer als ASCII- 
File gespeichert, bis Sie aus- 
drücklich eine andere Art (»,b« 
oder »,p«) angeben. 

Dann gibt's da noch die als 
Text-Editor bezeichneten Pro- 
gramme »ED« und »EDIT«, wel- 
che Sie auf Ihrer Workbench- 
Diskette im »c«-Directory fin- 
den. Am besten suchen Sie sie 
gar nicht erst, denn es handelt 
sich bei diesen Editoren um 
Neuauflagen jenes Kiesels, 


den Sysiphus den Berg hinauf- 
schleppte. Und kommen Sie 
bloß nicht auf die Idee, das Pro- 
gramm »Notepad« zu verwen- 
den. Dessen Files strotzen nur 
so vor Steuerzeichen (klar, 
Font-Wahl, usw.). Sehr zu emp- 
fehlen sind Textverarbeitungs- 
programme wie z.B. »Super- 
Ed«, »Textomat«, »Becker-Texte«, 
»CText« aus dem Sonderheft 6 
oder (für die Betuchten unter 
uns) »WordPerfeot«. Diese Pro- 
gramme bieten einen »TEXT«- 
Modus beim Abspeichern, das 
heißt, sämtliche Steuerzeichen 
für Seitenlänge, Schriftbild etc. 
werden vor dem Abspeichern 
entfernt. Das Ergebnis ist ein 
astreines ASCII-File - genau 
das wünscht sich der AC-Com- 
piler. Ja, und ehe wir es verges- 
sen zu erwähnen: 

Jede Zeile muß mit einem 
»RETURN« abgeschlossen 
werden, auch die letzte! 


bindet. Esist aber auch nicht je- 
dermanns Sache, die zu bear- 
beitenden BASIC-Programme 
auf die Compiler-Diskette zu ko- 
pieren, um ein Prefix wie 
»RAM:« zu umgehen. Abhilfe 
schafft hier ein: 

assign 1: df1:1 

bzw. ein: 


assign 1; AC/BASIC- 
Compiler:1 

wenn Ihre Compiler-Diskette 
den Namen »AC/BASIC-Com- 
piler« trägt. 

Leider ist es damit nicht ge- 
nug der Einschränkungen und 
Randbedingungen. An Ihr Pro- 
gramm werden noch weitere 
‚Anforderungen gestellt, eigent- 
lich jede Menge Anforderun- 
gen. Aber das Ergebnis recht- 
fertigt den Aufwand. So z.B. 
dürfen Sie bestimmte BASIC- 
Schlüsselworte, also Befehle, 
die im AMIGA-BASIC-Interpre- 


Im AC/BASIC-Compiler nicht Implementierte Befehle 


CONT 
MERGE 


DELETE 
NEW 


LIST 
SAVE 


LLIST 
TRON 


LOAD 
TROFF 


Tabelle 1. Die im AC/BASIC-Compiler nicht implementierten 


Befehle 


Eine weitere Forderung des 
ACI/BASIC-Compilers bezieht 
sich auf sein »I«-Directory. Auf 
der Compiler-Diskette, wie sie 
von Absoft ausgeliefert wird, 
befinden sich im »I«-Directory 
mehrere Files, die der Compiler 
braucht, um Ihren BASIC-Pro- 
grammen den richtigen Turbo- 
Boost zu verpassen. Im Hand- 
buch empfiehlt der Hersteller, 
sich eine Workbench-Diskette 
anzulegen und diese Files (und 
einige andere) in die jeweiligen 
Directories zu kopieren. Der 
Compiler sucht die besagten 
Files nämlich nur an zwei Posi- 
tionen: Auf der Boot-Diskette, 
mit der das System gestartet 
wurde, und im aktuellen, also 
mit »cd dfx:« angemeldeten, 
Laufwerk. Sollten Sie die Ver- 
wegenheit besitzen, Ihren AMI- 
GA mit Ihrer Workbench-Dis- 
kette hochzufahren, die Compi- 
ler-Diskette in »df1:« einzulegen 
und das zu compilierende Pro- 
‚gramm in der RAM-Disk stehen 
zu haben, dann werden Sie un- 
barmherzig mit einem Compi- 
ler-Error beglückt. In dem Mo- 
ment, wo Sie bei der Eingabe 
des zu compilierenden Files ei- 
nen Device-Namen vorsetzen 
(z.B. »RAM: TESTFILE.bas«), 
macht der Compiler »RAM:« 
zum aktuellen Laufwerk, und 
damit hat er sich auch schon 
den Faden abgeschnitten, der 
ihn mit seinen Hilfsdateien ver- 
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ter implementiert sind, nicht 
verwenden! HAAALTI Lassen 
Sie den Magneten im Werk- 
zeugschrank und Ihre Compi- 
ler-Diskette in der Box - hört 
sich schlimmer an, als es ist. 
Bei genauerer Betrachtung der 
Dinge ist es sogar völlig richtig 
und einleuchtend, Befehle wie 
»CONT«, »DELETE« oder 
»LLIST« nicht in ein Compiler- 
Paket zu integrieren. Die haben 
ja wirklich nur Sinn in Verbin- 
dung mit dem Interpreter. Eine 
Zusammenfassung der im 
ACI/BASIC-Compiler nicht im- 
plementierten AMIGA-BASIC- 
Befehle finden Sie in Tabelle 1. 

Lassen Sie uns an dieser 
Stelle kurz weitere Unterschie- 
de zwischen Interpreter und 
Compiler besprechen. In der 
Hauptsache geht es hierbei um 
unterschiedliche Reaktionen 
auf Befehle oder Ereignisse 
(zur besseren Übersicht habe 
ich die Befehle mit »etwas an- 
derer Bedeutung«s in Tabelle 2 
zusammengefaßt). 

END, STOP und SYSTEM 
sind für den Compiler gleichbe- 
deutend. Jeder der drei Befehle 
beendet den Programmlauf 
des Compilats und führt in die 
aufrufende Ebene, also Work- 
bench oder CLI, zurück. 

RUN und CHAIN arbeiten 
prinzipiell in compilierten Pro- 
grammen wie unter Kontrolle 
durch den BASIC-Interpreter, 


nur daß sie sich eben nicht auf 
BASIC-Quelitexte beziehen 
(wäre ja auch witzlos), sondern 
auf Compilatel Da aber der 
Compiler an den Filenamen je- 
des Compilats die Endung 
».run« anhängt, müßten Sie ent- 
weder im BASIC-Text den File- 
namen ändern oder ein »RE- 
NAME« der Compilate vorneh- 
men. Um Ihnen diese und auch 
andere Umständlichkeiten zu 
ersparen, stellt der Compiler 
sogenannte »Metacommands« 
zur Verfügung, auf die wir zu ei- 
nem späteren Zeitpunkt zu 
sprechen kommen. 

In Verbindung mit »CHAIN« 
ergeben sich auch für den 
COMMON-Befehl einige Dinge, 
die Sie zu beachten haben. Bei 
Verwendung des AC/BASIC- 
Compilers sind Sie gezwun- 
gen, sowohl im »Hauptpro- 
gramm« als auch im verkette- 
ten Programm die gewünsch- 
ten Varlablen mittels »COM- 
MON« zu deklarieren usw., in 
exakt der gleichen Reihenfol- 
‚ge und Varlablen-Type. Tun Sie 
das nicht, wünschen wir Ihnen 
jetzt schon ein fröhliches Wan- 
zenjagen. Weiters ist bei Ver- 
wendung des »CHAIN«-Kom- 
mandos zu beachten, daß Ar- 
rays folgendermaßen zu dekla- 
rieren sind (beachten Sie bitte 
die Reihenfolge von »DIM« und 
»COMMON« und den jeweili- 
‚gen Klammer-Inhalt): 


DIM STATIC B(10,3,2) 
COMMON B() 
bzw. 
COMMON K(4) 
DIM K(8,12,2,6) 
Auf den Begriff »STATIC« 
kommen wir gleich zu sprechen. 
Auch bei CLEAR und FRE 
sollten Sie auf den feinen Un- 
terschied achten, wollen Sie 
keine unliebsamen Überra- 
schungen erleben. »FRE(-1)« 
und »FRE(x)« liefern in einem 
compilierten Programm immer 
das gleiche Ergebnis (was nicht 
weiter verwunderlich ist, aber 


Der feine 
Unterschied 


bei manchen Kunstkniffen zu 
irritierenden Programmver- 
zweigungen führen könnte). 
»CLEAR« und»CLEAR, &50000« 
haben denselben Effekt wie 
»CLEAR« ohne folgendes Argu- 
ment. Compilierte BASIC-Pro- 
gramme nehmen sich soviel 
Speicher, wie sie brauchen 
(wenn sie ihn kriegen), und sie 
tun das ohne besondere Anwei- 
sung. Eine Argument-Übergabe 
wie im  Original-BASIC-Pro- 
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BASIC-Kommandos mit abweiche: 


'nder Reaktion 


END 
RUN 


STOP 
CHAIN 
FRE 


CLEAR 


SYSTEM 
COMMON 


Tabelle 2. AC/BASIC-Compiler: gleiche Bezeichnungen, 


andere Reaktionen 


gramm wird vom Compiler ig- 
noriert, ansonsten arbeitet der 
»CLEAR«-Befehl wie gewohnt, 
abgesehen von bestimmten 
Anforderungen an die Reihen- 
folge von »CLEAR«- und »DIM«- 
Befehlen in Verbindung mit 
»STATIC«-Arrays, worüber das 
Handbuch aber erschöpfend 
und eindeutig Auskunft gibt. 
Weil wir gerade von ARRAYS 
sprechen: Da gibt es Unter- 
schiede zwischen Interpreter 
und Compiler, auf die Sie unbe- 
dingt achten müssen - es sei 
denn, Sie stehen auf Compiler- 
Errors en gros und unmotivierte 
Abstürze, Der erste zu bespre- 
chende Unterschied läßt den 
Compiler etwas alt aussehen. 
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spielsweise können String- 
‚Arrays sowohl zur Art »STATIC« 
als auch zur Art »DYNAMIC« 
zugeordnet werden. Das hat 
nichts mit dem BASIC-Interpre- 
ter zu tun, der kennt ohnehin 
nur »DYNAMIC«-Arrays und 
schreit gequält auf, wenn er auf 
eine »STATIC«-Anweisung trifft. 
Das hängt nur mit dem Compi- 
ler zusammen und der Art, wie 
er ein BASIC-Programm in Ma- 
schinensprache umsetzt. Der 
BASIC-Interpreter verwaltet sei- 
ne Arrays »dynamisch«, das 
heißt, je nach Bedarf und An- 
weisung im Programm kann ein 
Array größer oder kleiner wer- 
den. Das kann der Compiler 
Gott sei Dank auch, aber es be- 
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Bild 2. »EvEd« erleichtert die Anpassung des AC/BASIC- 


Compilers an Ihre persönlichen 


Er kann nämlich nicht - wie der 
Interpreter - 255 Felddimensio- 
nen verdauen, sondern bloß sie- 
ben. Die Anweisung »DIM SHA- 
RED« darf nicht innerhalb eines 
Subprogramms verwendet wer- 
den, weil zur Zeit der Entste- 
hung des Compilers dies auch 
vom BASIC-Interpreter nicht 
unterstützt wurde, wie im Hand- 
buch zu lesen Ist. Durch das 
mitgelieferte Hilfsprogramm 
»SORTSUBS« wird dieses klei- 
ne Manko allerdings entschärft. 
Weiters ist wichtig zu wissen, 
daß der AC/BASIC-Compiler 
zwei grundverschiedene Arten 
von Arrays unterstützt: STATIG 
und »DYNAMIC«, wobei diese 
»Artens absolut nichts mit dem 
Array-Typ zu tun haben. Bei- 


Wünsche 


deutet, daß in einem compilier- 
ten Programm mit dynami- 
schen Arrays derselbe Varia- 
blen-Verwaltungsaufwand ge- 
trieben werden muß wie unter 
Kontrolle des Interpreters, was 
verständlicherweise zu Lasten 
der Verarbeitungsgeschwindig- 
keit geht. Um dem Anwender 
aber ein möglichst schnelles 
Compilat zur Verfügung stellen 
zu können, unterstützt der 
Compiler eine dem Interpreter 
unbekannte Art von Arrays: die 
»STATIC«-Arrays. Wird eine 
‚Array-Definition dem Compiler 
mit dem Zusatz »STATIC« über- 
geben (was im Prinzip für jede 
Art Array zulässig ist), so wer- 
den alle Array-Pointer und Ver- 
waltungstabellen - soweit mög- 
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ConPiLer 


lich - bereits bei der Compila- 
tion erstellt und nicht erst im 
Programm-Ablauf. Drastische 
Geschwindigkeitssteigerungen 
sind die Folge. Allerdings hat 
Geschwindigkeit auch ihren 
Preis, strenge Restriktionen 
sind zu beachten, sollen Arrays 
als »STATIC« verarbeitet bzw. 
‚compiliert werden. Hier ein klei- 
ner Überblick: 

»ERASE« sollten Sie gleich 
aus Ihrem Programmierer- 
Sprachschatz streichen, das 
mag der Compiler bei »STA- 
TIC«-Arrays überhaupt nicht. 
Demzufolge ist natürlich auch 
ein Umdimensionieren eines 
Arrays nicht mehr zulässig. 
Falls Sie Arrays für Grafik- 
zwecke verwenden wollen (et- 
wa mit »GET« und »PUT«), be- 
achten Sie bitte unbedingt die 
Hinweise im Handbuch betref- 
fend Speichererweiterungen. 
Für den Befehl »OPTION BA- 
SE«gilt die Einschränkung, daß 
er im Programm vor dem er- 
sten Gebrauch und vor der er- 
sten Dimensionierung eines 
‚Arrays stehen muß. 

‚Soweit zu den Arrays und de- 
ren Verarbeitung durch den 
Compiler. Wenden wir uns nun 
einer weiteren Differenz zwi- 
schen Interpreter und Compiler 


der Definition von Varla- 
blen und Funktionen. Hier wie 
auch bei anderen Unterschie- 
den zwischen BASIC-Interpre- 
ter und Compiler ist es ganz 
wichtig, sich in Erinnerung zu 
rufen, daß ein Compiler das zu 
übersetzende Programm nicht 
abarbeitet, sondern Zeile für 
Zeile übersetzt. Eine Auswir- 
kung dieser Vorgangsweise be- 
trifft die Anwendung von »DEF- 
typ« (DEFINT«, »DEFSTR«, 
usw.) ebenso wie »DEF FN«. 
Ebenfalls von grundsätzlicher 
Bedeutung ist die Position der 
»DEFtyp«-Statements. Sie müs- 
sen unbedingt vor eventuell 
vorhandenen »DIM SHARED«- 
Anweisungen im Programm- 
Text stehen. Achten Sie bitte 
darauf, wenn Sie mit dem Hilfs- 
programm »SORTSUBS« Ihre 
Subprogramme aus dem Quell- 
Text herauslösen lassen. 

Nichts mit der Arbeitsweise 
des Compilers hingegen hat ei- 
ne andere Einschränkung zu 
tun. Die »DEFINT«-Überset- 
zung hat schlicht und einfach 
eine Macke. Potentiellen Käu- 
fern des Compiler-Pakets möge 
dies als Warnung reichen, Be- 
sitzern des Compilers legen wir 
das Studium des Beiblattes mit 
dem schönen Titel »Known 
Bugs« ans Herz. Nicht, daß 
man mit diesem Linksgewinde 


nicht leben könnte, aber die 
Übersetzung vorhandener BA- 
SIC-Programme wird dadurch 
nicht gerade vereinfacht. 

Zum Abschluß der Differenz- 
liste (die leider zum Großteil ei- 
ne Einschränkungsliste ist) ha- 
ben wir noch einige positive 
Überraschungen für Sie. Ja 
wirklich, einiges kann der Com- 
piler, was der Interpreter nicht 
kann. Beispielsweise kennt der 
BASIC-Compiler einen Befehl, 
der strukturiertes Programmie- 
ren enorm erleichtert: 

Der Compiler unterstützt das 
aus anderen Sprachen bekann- 
te »CASE«-Konstrukt. Anstatt 
kilometerlange »IF..THEN...EL- 
SE...IF...«Gebilde program- 
mieren zu müssen, steht Ihnen 
bei der Arbeit mit dem AC/ 
BASIC-Compiler ein »SELECT 
CASE«-Befehl zur Verfügung, 
mit dem man Mehrfachverzwei- 


Da staunt 
der Interpreter... 


gungen auf elegante Weise 
konstruieren kann. Wenn Sie 
das CASE-Konstrukt in Ihren 
Programmen einsetzen wollen, 
dürfen Sie aber nicht verges- 
sen, daß der BASIC-Interpreter 
damit nichts anzufangen weiß, 
Entweder Sie schreiben reine 
Compiler-Quelltexte oder Sie 
verwenden die  Metacom- 
mands, um einen Quelltext so- 
wohl für den Compiler als auch 
für den Interpreter lauffähig zu 
machen. 

Eine weitere nützliche Eigen- 
schaft des Compilers ist die zu- 
lässige rekursive Verwen- 
dung von Subprogrammen, 
was nichts anderes bedeutet, 
als daß ein Subprogramm sich 
selbst direkt oder auf dem Um- 
weg über ein anderes Subpro- 
gramm aufrufen kann und darf. 
Der Interpreter senkt in einem 
solchen Fall ja leider verschämt 
sein Haupt und schreit nach 
dem Benutzer. 

Nach soviel Theorie und viel- 
leicht auch Frustration über die 
vielfältigen Einschränkungen 
möchte ich Ihnen die Praxis et- 
was näherbringen. Mit Praxis 
meine ich Bedienung, Steue- 
rung und Benutzung des 
Compilers und Anpassung be- 
stehender BASIC-Programme 
an den Compiler. Und damit 
Praxis auch wirklich Praxis ist 
und nicht nur eine mehr oder 
weniger lieb- und sinnlose An- 
einanderreihung von BASIC- 
Befehlen, haben wir uns ent- 
schlossen, ein Programm mit 
Ihnen und dem AC/BASIC- 
Compiler zu compilieren, das 
Sie in seiner ursprünglichen 
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BASIC-Gestalt auf Seite 119 in 
diesem Heft wiederfinden: 
»KALAHA« von Jochen Züg- 
ge. Unsere Wahl fiel auf dieses 
Programm, weil es von Haus 
aus bereits einige Anforderun- 
gen erfüllt, die der AC/BASIC- 
Compiler an seine Quell-Texte 
stellt. So sind beispielsweise 
die Unterprogramme sauber 
vom Hauptprogramm getrennt, 


„„.und der User 
freut sich... 


wodurch auf eine Anwendung 
von »SORTSUBS« verzichtet 
werden kann. Wenn Sie nicht 
nur im Geiste, sondern auch 
praktisch unsere Versuche mit- 
machen wollen, müssen Sie 
jetzt das ASCII-File »KALAHA« 
auf die Compiler-Diskette ko- 
pieren, Entweder durch An- 
klicken und »Rüberziehen« des 
»KALAHA«-BASIC-Icons oder 
durch 


PROMPT > copy dfx: 
KALAHA to dfO: 


wobei »dfx:« natürlich von Ih- 
rer Hardware-Ausrüstung ab- 
hängt. 

Versuchen wir es zuerst mal 
mit der »brute force«-Methode: 

Compiler anwerfen und ab 
die Post. Wenn Sie mit der Ar- 
beitskopie der Compiler-Disket- 
te gebootet haben, befinden 
Sie sich jetzt auf der Work- 
bench. In diesem Fall reicht ein 
Doppelklick auf das Icon des 
Compilers, um die Sache in 
Schwung zu bringen. Arbeiten 
Sie, gleich aus welchem Grund, 
im CLI, so geben Sie bitte nach 
dem Prompt ein: 


PROMPT> run AC-BASIC 


und schließen Sie die Eingabe 
mit einem <RETURN> ab, 
um den Compiler zu starten, 
Das Arbeitsfenster, das sich 
daraufhin auf dem Bildschirm 
‚aufbaut, läßt uns ehrfürchtig er- 
schaudern: eine Copyright- 
Meldung - und sonst nichts! 
Das kann doch nicht alles ge- 
wesen sein. Vielleicht ein Me- 
nü,,.? Richtig! Ganz verschämt 
zeigt sich nach Druck auf die 
Menü-Maustaste (genau, die 
rechte) In der linken oberen 
Ecke die Andeutung eines Me- 
nüs. »Project« steht da, und 
wenn Sie den Mauszeiger auf 
dieses Feld setzen, wird Ihnen 
das nächste Menü, bestehend 
aus sage und schreibe drei Un- 
terpunkten, präsentiert: 
»OPEN«, PRINT« und »QUIT«, 
Na schön, drucken wollen wir 
nichts und beenden wollen wir 
unseren Besuch bei Absoft 
auch noch nicht. Also wählen 


Sie bitte den Punkt»OPEN« an. 
Der Lohn für Ihr Interesse ist ein 
Filerequester, in den Sie Pfad 
und Dateiname des zu compi- 
lierenden Files eingeben: 


df1:kalaha 


falls Sie zu den Glücklichen ge- 
hören, die zwei Laufwerke ihr 
eigen nennen. Jetzt beginnt der 
ACIBASIC-Compiler zu erwa- 
chen und gewährt Ihnen mit 
dem auf dem Bildschirm aufge- 
bauten Menü vollen Zugriff auf 
die Compiler-Options - an- 
klicken genügt. Da wir mit all 
diesen schönen Dingen aber 
noch nichts anzufangen wissen 
(verzeihen Sie bitte die Unter- 
stellung, falls dies gerade auf 
Sie nicht zutrifft), klicken Sie bit- 
te das Feld »CLEAR« an, damit 
löschen Sie alle eventuell akti- 
vierten Schalter. Lassen wir den 
Dingen zuerst einmal ihren 
Lauf - klicken Sie einfach auf 
»COMPILE«. Nach kurzer Zeit, 
einigen Diskettenzugriffen und 
der Ausgabe einstweilen noch 
kryptischer Begriffe und Zahlen 
wissen wir, daß es so nicht geht. 
»8 Errors detected« steht da zu 
lesen, und der Compiler sagt 
uns netterweise auch gleich, 
was ihm nicht paßt: »This featu- 
re requires the "N’-Option«. 


„„.aber nicht 
lange 


Was auch immer mit diesen 
Meldungen gemeint sein mag, 
eines ist jetzt wohl jedem klar: 
»straight forward« ist nicht. Was 
bleibt uns also anderes übrig, 
als diese Optionen kurz durch- 
zugehen, bzw. uns das Steuer- 
fenster des Compilers mit sei- 
nem Inhalt genauer anzuse- 
hen. 

Für alle Leser, deren Monitor 
gerade in Reparatur ist, haben 
wir in Bild 1 dieses Options- 
Menü abgebildet. 

»SOURCE-FILE« und »CAN- 
CEL« bedürfen sicher keiner 
näheren Erläuterung, aber was 
ist mit dem Schieberegler 
»WORK AERA« gemeint? 

Das Speichervolumen, das 
der Compiler für seine Arbeit 
benötigt, ist von mehreren Fak- 
toren abhängig: Größe des zu 
compilierenden Files, Anzahl 
der zu verwaltenden Labels in 
diesem Programm, Anzahl und 
Größe der zu übersetzenden 
Unterprogramme usw. Könnte 
der Compiler ohne Rücksicht 
auf Verluste Speicher für sich 
vom System abziehen, soviel er 
will, würde dies bald zu einem 
Crash führen. Wir könnten je- 
denfalls nicht lachen, wenn im 
Multitasking ein Compilier-Pro- 
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Das Produkt der Option 


‚Absoft BASIC Compiler Listing 03/10/48 Page 1 


Source File; kalsha,nod 


Entry: 0000030E 


»L« am Beispiel »KALAHA« 


00001 REM ur ++ Kalaha ++ ern te 
00002 REM ++ Version 1.1 1989 by Jochen Zuegge +HHHHtt 
00003 REM tere 
00004 
00005 CLEAR „400008, 10000. 
00006. DEFINT a-z. 
00007 RANDOMIZE TIMER 
00008 
00009 DECLARE FUNCTION AllocRemenber&() LIBRARY Kr 
00010 DECLARE FUNCTION Openhindowk() LIBRARY \=-Intuition 
00011 DEOLARE FUNCTION Addündget&() LIBRARY 17 
00012 DECLARE FUNCTION Removeöndget&() LIBRARY u 
00013 DECLARE FUNCTION TextLength&() LIBRARY '=-Graphios 
00014 DEGLARE FUNOTION GetRGB4E() LIBRARY "7 
00015 DECLARE FUNCTION GetMag&() LIBRARY N--Exeo 
00016 DEOLARE FUNCTION OpenDiskFont&() LIBRARY \-.Diskfont 
0017 
00018 LIBRARY “intußtion.Librany” 
00019 LIBRARY "graphias. Library” 

Symbol and Label Tables for: NAIN 
SYMBOL TYPE STORAGE, ADDRESS 
ALLOCREMENBERE()  LONGINT FUNOTEON 

OPENWINDOWE() LONGINT FUNOTION 

ADDGADGETE() LONGINT FUNGTLON 
REMOVEGADGETE() LONGINT FUNCTION 
TEXTLENOTHL()  LONGINT FUNOTION 
GETRGBLL() LONGINT FUNOTZON 
GETMSGE() LONGINT FUNOTEON 
OPENDISKFONTE() LONGENT FUNOTZON 
1 INTEGER LOCAL 00000210 
s£ INTEGER LOCAL 0000212 
SERR LONGINT LOCAL, 00000288 
Rz INTEOER LODAL, 00000210 
B% INTEGER LOCAL 00O0D2EE 
mug INTEGER LOCAL 000002F0 
GADGETVORBERELTUNG 00001438 NEUNIN 00001096 
NAUSZEIGER 0O001EDE BILDSCHIRMAUFBAU 00002032 
GRUNDEINSTELLUNG. 00003738 ENDE 00000538 
BORDER 00001682 PROPGAD 00DOLBBE 
GADGET 00001964 GADGETTEXT V00OSBTE 
GADGETBESCHRIFTUNG 0000530 TDCHPFREL 00005640 
GADOETABFRAGE  00005DB8 FARBBESTENNUNG 00003498 
KEINZEITLINIT 00004462 ANZEIGE 00004002 
ABFRAGEPROP 00003P74 SPIELSTAND 0000960 


Tabelle 3. Mit der Option »L« verknüpft der AC/Basic- 
Compiler Quelltext und Compiler-Informationen 


zeß und eine Datenbank-Appli- 
kation nebeneinander laufen 
und die Datenbank plötzlich 
den Jordan hinuntergeht, weil 
sie vom Compiler emsig über- 
schrieben wird. Andererseits ist 
eine permanente Überwa- 
chung des zur freien Verfügung 
stehenden Memory für einen 
Compiler dasselbe wie eine an- 
gezogene Handbremse für ei- 
nen Ferrari - man fährt zwar 
trotzdem, aber die Geschwin- 
digkeit ist nicht das Wahre. 
Bliebe noch die Garfield-Me- 
thode: »Alles mein. Bagger, 
bagger,....«. Auch nicht so toll! 
Die Absoft-Leute waren der 
Meinung, daß eine einmalige 


Speicher-Anforderung durch 
den User die optimale Lösung 
darstellt. Diese Anforderung er- 
folgt durch Betätigung des er- 
wähnten Schiebereglers, wobei 
noch zusätzlich der angeforder- 
te Speicher digital angezeigt 
wird. Falls Sie einmal zu geizig 
bei der Memory-Anforderung 
waren, teilt Ihnen das der Com- 
piler schon mit - keine Bange. 

Ehe wir uns den Feinheiten 
der Compiler-Steuerung zu- 
wenden, noch kurz ein Wort zu 
den Gadgets »Compile« und 
»Compile Batch«. Ersteres ist 
das Start-Gadget für die Com- 
pilation jenes BASIC-Files, des- 
sen Namen Sie im File-Reque- 
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ster während der Prozedur 
»OPEN« eingegeben haben. 
Das zweite Gadget hingegen ist 
was für Programmierer, die ih- 
ren Kaffee gerne in Ruhe trin- 
ken. Wenn Sie mehrere, von- 
einander unabhängige, BASIC- 
Files mit unterschiedlichen 
Compiler-Schalterstellungen 
automatisch nacheinander 
compilieren lassen wollen, 
reicht es, die Namen der zu 
übersetzenden Files und die 
gewünschten *Schalterstellun- 
gen” in einem ASCII-File ein- 
zutragen. Dann noch den Na- 
men dieses ASCII-Files in der 
Prozedur »OPEN« eingeben 
und das Gadget »COMPILE 
BATCH« anklicken - den Rest 
erledigt die Absoft-Außenstelle. 
Hier sei uns wieder eine kleine 
Reminiszenz an Absoft und an 
die Erfinder des Copyright ge- 
stattet: 

Der Aufbau des besagten 
ASCII-Batch-Files ist im Hand- 
buch ganz ausführlich be- 
schrieben und stellt sicher nie- 
manden vor Probleme. 

Nun zu den Compiler-Schal- 
tern. Eine Tabelle können wir 
uns wohl sparen - Bild 1 zeigt ja 
alle anwählbaren Eingriffsmög- 
lichkeiten. Die Auswahl erfolgt 
durch einfaches Anklicken der 
kleinen Kästchen mit der Maus. 
‚Anklicken des Gadgets »SAVE« 
speichert die momentanen 
Schalterstellungen in einem 
Hilfsfile namens »AC-BASIC. 
OPT«, das bei jedem Aufruf des 
Compilers gesucht und, wenn 
vorhanden, geladen wird. 


Eines nach 
dem anderen 


»CLEAR« löscht, wie könnte es 
auch anders sein, alle aktivier- 
ten Compiler-Schalter, Jetzt 
geht's ab ins Detail. Beginnen 
wir links oben mit dem Schalter 
»A« - »Use Long Addressing«. 

»A« - »Use Long Addres- 
sing« gehört zu den eher selte- 
ner benötigten Schaltern. Sie 
sollten diese Compiler-Steue- 
rung nur dann aktivieren, wenn 
es der Compiler von Ihnen ver- 
langt, das tut er nämlich. Not- 
wendig wird dies nur dann, 
wenn Ihr Programm Speicher- 
bereiche ansprechen muß, die 
mit 16 Bit’s nicht mehr zu adres- 
sieren sind. Compilieren Sie 
das komplette Programm mit 
eingeschaltetem »A«-Schalter, 
dürfen Sie sich nicht über die 
Größe des Compilats wundern 
(16 Bit > 32 Bit!). Die Program- 
mierer des Compilers empfeh- 
len daher ihren Kunden, diese 
Option mit Hilfe der Metacom- 


mands »$OPTION +A« und 
»$OPTION -A« nur für jene Pro- 
grammzeilen zu aktivieren, die 
vom Compiler im Pass 3 rekla- 
miert werden. 

»C« - »Enable Run-time 
Tests«isteine unserer Meinung 
nach unentbehrliche Hilfe wäh- 
rend der Testphase eines Pro- 
gramms - aber danach schal- 
ten wir sie ab. Ein aktivierter 
»C«-Schalter fügt in Ihr compi- 
liertes Programm Routinen ein, 
die ständig auf der Lauer lie- 
gen, um unzulässige Werte bei 
arithmetischen oder String- 
Operationen zu erkennen und 


Die Schalt- 
zentrale 


das Programm im Fall der Fälle 
einigermaßen korrekt zu been- 
den. Daß sich dadurch das 
Compilat vergrößert und sich 
seine Ablaufgeschwindigkeit 
verlangsamt, liegt auf der 
Hand. Die im Fehlerfall ausge- 
gebenen Debugging-Hinweise 
sind jedoch nicht mit Gold auf- 
zuwiegen. Daher unser Tip 
(den haben wir auch aus dem 
Handbuch - wie gut, daß wir ei- 
nes haben): Sobald ein Pro- 
gramm »wasserdicht« ist, mit 
abgeschalteter »C=-Option 
‚compilieren. 

»D« = »Compile for Decimal 
Math« Eine Aktivierung dieses 
Schalters wird wohl Einzelfällen 
vorbehalten bleiben. Im Prinzip 
wird dabei von IEEE-Arithmetik, 
wie sie auch der BASIC-Inter- 
preter im Normalfall verwendet, 
auf permanente Double-Preci- 
sion-Arithmetik umgeschaltet 
und eine »andere« Art des Run- 
dens eingesetzt. Überdies muß 
für Compilate, die mit einge- 
schalteter »D«-Option übersetzt 
wurden, eine andere als die 
normale Run-time-Library ver- 
wendet werden, bzw. vorhan- 
den sein. 

»E« - »Generate Errors List« 
zählt zu den Debugging-Tools 
des Compilers. Eine Aktivie- 
rung des »E«-Schalters veran- 
laßt den Compiler, eventuell 
auftretende Fehlermeldungen 
nicht auf dem Bildschirm aus- 
zugeben, sondern in einem File 
mit der Endung ».ist« abzule- 
gen. Auf dem Bildschirm ist 
dann lediglich die Meldung »n 
Errors detected« zu sehen. Be- 
sonders bei den ersten Compi- 
lier-Versuchen an einem kom- 
plexeren Programm ist es aus- 
gesprochen angenehm, die 
aufgetretenen Fehler nachein- 
ander be- und abarbeiten zu 
können. 

»l« - »List Include State- 
ments« ist für die »Bibliotheka- 
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COMPILER 


re« unter Ihnen gedacht. Wenn 
Sie diesen Compiler-Schalter 
einschalten, erhalten Sie ein 
Duplikat Ihres BASIC-Listings, 
versehen mit Zeilennummern 
(was bei der Auswertung der 
Compiler-Error-Messages sehr 
praktisch ist). Wie bei der Op- 
tion »E« trägt dieses File den 
Namen der Ursprungsdatei 
und zusätzlich die Endung 
».Ist«, Die im Fall der Fälle auf- 
tretenden Fehlermeldungen 
des Compilers werden an der 
Stelle des Programms, an der 
sie auftraten, in das Programm- 
Listing eingefügt. Zusätzlich 
geschieht folgendes: Bei Ver- 
wendung externer BASIC-Files, 
die Sie mit dem Meta-Command 
»$INCLUDE« in Ihr Programm 
einbinden lassen, wird der In- 
halt dieser externen Files in das 
Programmlisting eingefügt, 
und zwar genau an der Stelle, 
an der sie eingebunden wer- 
den. Ist doch toll - oder ? Übri- 
gens bewirkt ein Einschalten 
der »I«-Option auch eine Akti- 
vierung des Compiler-Schal- 
ters »L«, zu dem wir jetzt kom- 
men. 

»L« - »Generate Full List« ist 
eine abgemagerte Ausgabe 
des »I«-Schalters, der Unter- 
schied liegt nur in der Behand- 
lung der Include-Files, die na- 
türlich nicht In Klarschrift in das 
Listing eingetragen werden, 
Dafür gibtesja den Schalter »I«. 
Aber sonst ist alles da. Pro- 
gramm-Listing mit Zeilennume- 
rierung, Seiten-Numerierung 
des Listings und, last but not 
least, eine komplette Tabelle al- 
ler Variablen, Funktionen und 
Labels mit zugeordneter Typen- 
und Speichervereinbarung. Ei- 
nen Ausschnitt aus einem sol- 
chen File haben wir für Sie in 
Tabelle 4 abgedruckt. 

Der nächste Compiler-Schal- 
ter, den wir etwas näher erklä- 
ren wollen, trägt die Bezeich- 
nung »N«-»Process Run-time 
Events«. Dieser Schalter hat 
mit der Option »C« eines ge- 
meinsam: Ist sie gesetzt (also 
aktiviert), werden Compilate 
größer und langsamer. Warum, 
zum Guru, sollten Sie dann die- 
sen Schalter jemals aktivieren? 
Heißt »N« vielleicht Nachteil- 
Schalter? Sie dürfen uns glau- 
ben, die Absoft-Ingenieure 
wußten schon, was sie taten. 
Und Sie werden den Schalter 
öfter setzen müssen, als Sie 
denken. Nämlich immer dann, 
wenn im zu compilierenden 
Programm BASIC-Befehle wie 
»ON«, »OFF«, »STOP«, »ON 
nnnnn GOTO«, »MENU« usw. 
vorkommen. All diese Befehle 
bedingen zur korrekten Funk- 


tion eine Fülle von Aktivitäten, 
die nur bei aktiviertem »N«- 
Schalter dem Compilat zuge- 
fügt werden. 

Der nächste Compiler-Schal- 
ter in unserer Aufzählung ist 
»R« - »Link Run-time«. Wer 
sich schon ein bißchen mit 
Compilern auseinandergesetzt 
hat, ist mit Sicherheit bereits 
über Begriffe wie »Laufzeit- 
Modul«, »Laufzeit-Bibliothek« 
‚oder »Run-time-Library« gestol- 
pert. Gerade unser Lieblings- 
computer macht ja von solchen 
Bibliotheken (= Libraries) re- 
gen Gebrauch. In diesen Files 
sind Routinen abgelegt, die von 
den verschiedensten Program- 
men gleichermaßen benötigt 
und verwendet werden, was 
den Vorteil hat, daß gleiche 
Routinen nicht in jedem Pro- 
gramm, das sie benötigt, einge- 
bunden sein müssen - die Pro- 
gramme werden dadurch deut- 
lich kleiner, und eine Verbesse- 
rung einer Bibliotheksroutine 
braucht nur im Library-File 
durchgeführt zu werden und 
nicht in jedem davon tangierten 
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Programm. Ein ganz typisches 
Beispiel ist die »arp.library«, auf 
welche die ARP-Befehle zu- 
rückgreifen, von denen Sie si- 
cher schon gelesen oder ge- 
hört haben (besser wäre, sie 
würden sie benutzen - kein Ver- 
gleich zuden Commodore-Äqui- 
valenten). Auch bei Absoft war 
man sich der Vorteile einer sol- 
chen Bibliothek für BASIC- 
Compilate bewußt. Die Dateien 
»BAS.RL« und »BAS.DL« ent- 
halten die besagten Routinen. 
Damit Sie als Anwender bei Be- 
darf aber auch absolut eigen- 
ständige Compilate zur Verfü- 
gung haben, wird bei aktivier- 
tem »R«-Schalter das jeweils 
benötigte Library-Modul in das 
Compilat eingebunden. Daß 
dadurch das Compilat an Um- 
fang zunimmt, ist klar. Hier muß 
jeder Anwender selbst ent- 
scheiden, was für ihn und sein 
Programm vorteilhafter ist. Ich 
vertrete folgende Auffassung: 
Befinden sich aufeiner Diskette 
mehrere Compilate (und blei- 
ben diese auch dort), so lagere 
ich die Bibliothek in ein ge- 
trenntes Library-File aus und 
sparen damit Disketten-Platz. 
Soll hingegen ein compiliertes 
Programm leicht portabel sein, 
ohne daß ich an das eventuelle 
Vorhandensein einer Library 
denken muß, dann binde ich die 
Laufzeit-Bibliothek in das Com- 
pilat ein. 
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»S« - »Generate Symbol Fi- 
le« können Sie getrost verges- 
sen. Dieser Compiler-Schalter 
‚symbolisiert das schlechte Ge- 
wissen der Absoft-Corporation, 
die diesen Schalter für ein De- 
bugging-Tool vorgesehen hat, 
das es noch immer nicht gibt. 
Es wird zwar ein File vom Com- 
piler angelegt (es trägt den Na- 
men des Quell-Programms mit 
der Endung ».sm«), aber außer, 
daß damit Diskettenplatz und 
Zeit vergeudet werden, ist 
nichts damit anzufangen. Wie 
gesagt: Vergessen Sie diesen 
Schalter und lassen Sie die Op- 
tion »S« abgeschaltet. 

Ist der Schalter »S« ein Para- 
debeispiel für Nutzlosigkeit, so 
ist der Schalter »T« das genaue 
Gegenteil: 

»T« — »Temporaries on RAM- 
Disk« beschleunigt Compiler- 
Läufe ungemein - vorausge- 
setzt, Sie haben genug Memo- 
ry frei, um eine RAM-Disk ver- 
wenden zu können. Der Compi- 
ler legt bei seiner Arbeit mehre- 
re Hilfsfiles an, in denen er Zwi- 
schendaten ablegt. Diese Files 
werden nach erfolgter Compila- 
tion automatisch wieder ge- 
löscht. Ist »T« abgeschaltet, wird 
das Disketten-Laufwerk unter 
Umständen zum Sägegatter. »T« 
zu aktivieren, kann nur empfoh- 
len werden. 

Ein ganz dicker Hund ist der 
letzte Compiler-Steuerbefehl: 

»U« - »Default Arrays to 
STATIC«. Über die compiler- 
spezifischen Array-Typen »STA- 
TIC« und »DYNAMIC« wurde 
bereits ausführlich gespro- 
chen. Wenn Sie nicht mit Meta- 
commands im Quell-Programm 
die Array-Typen den Arrays ex- 
plizit zuweisen wollen, generali- 
sieren Sie mit dem Einschalten 
des »U«-Schalters alle vorkom- 
menden Arrays zum Typ »STA- 
TIC«. Daß dies nicht immer von 
Vorteil für Programm und Ge- 
sundheit des Programmers 
sein muß, wissen Sie, seit Sie 
den Absatz über die Unter- 
scheidungsmerkmale und Ei- 
genschaften von »STATIC« und 
»DYNAMIC« in diesem Artikel 
gelesen haben. 

Damit hätten wir die Compi- 
ler-Schalter und auch den In- 
halt von Bild 1 besprochen, weil 
wir aber so schön im Aufzählen 
sind, gleich noch ein paar Wor- 
te zu den »Meta-Commands«. 
Die sind sozusagen die Fern- 
steuerung des Compilers. Ähn- 
lich wie eine Batch-Datei die 
Compilierung mehrerer Quell- 
Texte mit unterschiedlichen 

Compiler-Schalterstellungen 
automatisiert, so steuern die 
Metacommands aus einem 


HR 
0: kalaha 


1: ‚Symbol table complete 


8 errors detectes 
Memory usage: 


Labels ‚4860 bytes 


‚Symbols 9484 bytes 


Total 65530 bytes 


Excess 20526 bytes 


Source 734 lines 


5 Bypassing 


3 List file complete 


4 Bypassing 


der Name des 
bearbeiteten Basic- 
Programms. 


acht Fehler gefunden 
Aufteilung des 
okkupierten Speichers 
Speicher-Bedarf der 
Programmlabel- 
Verwaltung 
‚Speicher-Bedarf der 
Variablen-Verwaltung 
gesamter (!) belegter 
Speicher (Summe aus 
»Work Area« und dem 
Compiler selbst) 

soviele Bytes sind in der 
zugewiesenen »Work 
Area« nicht benutzt 
worden (um diesen Betrag 
könnten Sie belm 
nächsten Aufruf besagte 
»Work Area« verkleinern, 
‚ohne daß es rummst) 
‚Anzahl der bearbeiteten 
Zeilen im Basic-Quelltext 
bei Fehlern im 1. 
Durchlauf wird der 2. 
Durchlauf übergangen 
in diesem »Iist file« stehen 
jetzt die Fehlermeldun- 
‚gen. Sie werden gleich 
sehen, 

mehr wird nicht getan! - 
die Mühle steht. 


Tabelle 4. Begriffserklärung der Informationstabelle nach 
dem ersten Compilerdurchlauf 


Quell-Text heraus den Compi- 
ler. Mit den Steuer-Schaltern 
»IGNORE«, »INCLUDE«, »OP- 
TION« und »PAGE« sowie de- 
ren Extensions »+«, »-«, »ON«, 
»OFF« usw. stehen Ihnen alle 
Schalter des AC/BASIC-Compi- 
lers innerhalb eines Quell-Tex- 
tes zur Verfügung, bzw. sind Sie 
inder Lage, einen BASIC-Quell- 
text sowohl für die Compilation 
als auch für die Interpretation 
durch Amiga-BASIC zu opti- 
mieren. Die Anwendung von 
»$IGNORE ON« und der ande- 
ren Metacommands ist im 
Handbuch bestens beschrie- 
ben, weswegen wir uns nähere 
Erläuterungen zu diesem The- 
ma sparen wollen. 

Wenden wir uns wieder un- 
serem Programm »KALAHA« 
zu, das wir ja übungshalber 
compilieren wollen. Also, Sie 
haben gesehen, ohne Compi- 
ler-Voreinstellung geht's nicht, 
und bei unseren ersten Compi- 
lier-Versuchen hat der Compi- 
ler sehr energisch nach der 
»N«-Option verlangt. Mittlerwei- 
le wissen Sie auch, warum 
oder? Wenn nicht, probieren 
Sie nochmals eine Compilation 
des Quell-Textes. Damit wir 
aber auch gleich unser erwor- 
benes Wissen über die 
Compiler-Schalter für uns nutz- 
bringend anwenden, setzen wir 
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Compiler mit Übergabe des 
Quelltext-Files und der ge- 
wünschten Compiler-Option 
aus dem CLI. 

PROMPT > run AC- 

BASIC KALAHA E T W50 

Mit »E« und »T« wurden die 
genannten Optionen einge- 
schaltet und mit »W50« der für 
den Compiler reservierte Ar- 
beitsspeicher auf 50 KByte fest- 
gelegt. »Wnn« ist also das CLI- 
Aufruf-Äquivalent zum Schie- 
beregler mit der Bezeichnung 
»Work Area« ganz oben In Bild 1. 

Der Compiler startet nach un- 
serer Eingabe befehlsgemäß, 
setzt die gewünschten Schalter 
und beginnt das File »KALAHA« 
zu übersetzen. Wie bereits er- 
wähnt, ist der AC/BASIC-Com- 
piler ein »3-Pass-Compiler«, 
d.h. er übersetzt einen Quellco- 
de in drei Durchläufen. Der 
Compiler gibt uns nach Pass- 
Durchlauf 1 folgende Informa- 
tionen: 

Holen Sie sich jetzt den Inhalt 
des Files »KALAHA.Ist« auf den 
Bildschirm - dort müßten ja die 
Fehlermeldungen und die re- 
klamierten Quellcode-Zeilen 
stehen. Schließlich hatten Sie 
die Option »E« gesetzt. Fürs er- 
ste tut’s auch der »type«-Befehl: 


PROMPT >type kalaha.lst 


AMIGA-AC/BASIC-Helpline 


Bugs-Report #1 


Wir möchten Sie, liebe Leser, auffordern, uns Ihre Erfahrungen im 
Umgang mit dem AC/BASIC-Compiler mitzuteilen. Welche Probleme 
hatten Sie? Wie haben Sie sie gelöst? Suchen Sie noch nach einer Lö- 
sung für ein spezielles Problem? Schreiben Sie uns. Bei entsprechen- 
dem Interesse werden wir eine kleine »AC/USER-Rubrik« eröffnen, 
Machen Sie mit! 

Zur Einstimmung gleich Bug #1: 

Betrifft AC/BASIC V1.2 und V1.3 

‚Obwohl die Handbücher anderes versprechen, sind die folgenden 
Zeilenblöcke nicht gegeneinander austauschbar: 

Block 1: IF a$>CHR$(127) THEN 
PRINT CHR$(7) 

END IF 

IF ASC(a$)> 127 THEN 
PRINT CHR$(7) 

ENDIF 

Wer jetzt annimmt, daß das Listing aus Block 1 bei Auftreten eines 
Zeichens mit einem ASCII-Wert größer 127 einen Pleps von sich gibt, 
der irrt. Nur das Listing in Block 2 erfüllt die Erwartungen - also Vor- 
sicht! 


Block 2: 


Tabelle 5. Bugs-Report von V1.2 und V1.3 des Absoft- 
Compilers 


die Optionen »E« und »T«, »E«, 


damit wir uns in Ruhe die Feh- 
lermeldungen ansehen kön- 
nen, und »T«, damit unsere Oh- 
ren nicht vom Sägen des Lauf- 
werks-Schrittmotors gequält 
werden. Also auf in den Kampf. 
Das ASCII-File»KALAHA« steht 
noch auf der Compiler-Diskette, 
und diesmal starten wir den 


- und jetzt ist schon einiges kla- 
rer. Bei so vielen »TIMER« und 
»ON« ist nach dem Gehörten 
klar ersichtlich, daß die »N«- 
Option gesetzt werden muß. 
‚Auf zum nächsten Versuch: 
PROMPT >run AC-BASIC 
KALAHA E T W50 N 


wow!!! Erfolg auf der gan- 
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zen Linie. Keine Fehler-Mel- 
dung. Nicht eine einzige. Der 
Compiler hat sich nach getaner 
Arbeit wieder aus dem Spei- 
cher entfernt und uns ein Pro- 
gramm mit dem Namen »KALA- 
HA.run« auf der Diskette hinter- 
lassen. Sogar mit zugehörigem 
Icon. Also drauf mit dem Maus- 
zeiger und »KALAHA.run« 
zweimal anklicken. 

EI VERBIBSCHT! Statt ei- 
nem tollen Spiel erscheint ein 
nacktes Fenster mit der lapida- 
ren Meldung »error 53 in 00018« 
und »click Mouse«. Aber die 
Compilation lief doch ohne Feh- 
lermeldung. Was, bei allen 
Usern, ist »error 53«? Hand- 
buch her und nachgesehen. Au 
weh - war das jetzt eine »Com- 
pile Time Error Message« oder 
eine »Run Time Error Messa- 
ge«? Na klar, das letztere. Die 
Zeit des Compilierens ist ja 
schon vorbei. Das Programm 


mit einer entsprechenden Pfad- 
Angabe ergänzen. Frischen 
Mutes klicken wir wieder unser 
»KALAHA.run«-Icon an, und ab 
jetzt müssen wir unterschei- 
den, ob Sie das BASIC-Pro- 
gramm »KALAHA« mit der 
neuesten Version des 
ACI/BASIC-Compilers übersetzt 
haben oder mit einer älteren, 
z.B. der Version 1.2. 

Sind Sie Benutzer der Ver- 
sion 1.3, so sind Sie bereits im 
Besitz eines lauffähigen Com- 
pilats und können mit deutli- 
cher Geschwindigkeitssteige- 
rung »KALAHA« spielen. Hat- 
ten Sie zur Compilation aber 
die Version 1.2, so steht Ihnen 
noch einiges bevor - das Er- 
gebnis des erwähnten Doppel- 
klicks ist nämlich eher dazu an- 
getan, die Lust auf BASIC-Com- 
piler im allgemeinen und auf 
das Absoft-Produkt im beson- 
deren vergehen zu lassen. 


Verbesserungen V1.3 zur V1.2 


- das Handling von Oktal- und Hexadezimal-Zahlen 
- die Variablen-Deklarationen mit DEFType 
- die DIMensionierung von Arrays (siehe »KALAHA«) 


-DEFFN 


- mathematische Routinen wurden schneller 

= GOTO an eine Programmstelle, die nicht unmittelbar nach dem La- 
bel einen ausführbaren Befehl enthält, ruft nicht mehr den GURU 

- das »CASE«-Konstrukt in bezug auf Kompatibilität zu MSDOS 


- CHAIN und RUN 
- das CHDIR-Kommando 
- INPUT, INPUT # und READ 


- MOUSE- und OBJECT-Kommandos und die Behandlung von Sub- 
programmen und externen LIBRARIES (aha!) 


Tabelle 6. Verbesserungen der Version 1.3 gegenüber der 


Version 1.2 


war jaschon am Laufen. Blätter, 
blätter, such, such, ah ja: »Error 
53: File not found«. Wieso das? 
Was für ein File? Bevor Sie sich 
in das BASIC-Listing stürzen 
und die Zeilen abzählen; der 
Compiler zählt jede physikali- 
sche Zeile, also auch Leerzei- 
len etc. Schauen Sie sich im 
Programm-Listing die 18. Zeile 
doch bitte mal an. Da steht was 
von »Libraries«. Alles klar - da 
haben wir doch tatsächlich ver- 
gessen, die vom Programm be- 
nötigten ».bmap«-Dateien auf 
die Compiler-Diskette zu kopie- 
ren. Diese Dateien werden von 
einem Compilat genauso benö- 
tigt: wie vom ursprünglichen 
BASIC-Programm. Also dann: 
Es gibt viel zu kopieren - fangt 
schon mal an. 

Geschafft? Soviel war's ja 
gar nicht - vier ».bmap«-Datei- 
en müssen es gewesen sein. 
Und im selben Directory wie 
das Compilat müssen sie ste- 
hen, sonst müßten wir nämlich 
den Filenamen im Quell-Text 


»Error 38 in 00084« steht da, 
und wir blättern schon wieder 
im Handbuch. Aha, »38 - Unde- 
fined Array«, und in Zeile 84 des 
Quell-Textes soll dieser verbo- 
tene Arrayzugriff passieren. Es 
scheint sich um das Array mit 
der Bezeichnung »ta&()« zu 
handeln, warum es vom Compi- 
ler bemeckert wird, ist aller- 
dings eher unklar. Das Hand- 
buch behauptet, daß Array-Di- 
mensionierungen wie beim In- 
terpreter erst ab zehn Feldern 
notwendig sind. Das ist unwahr. 
Wahr ist vielmehr, daß der Com- 
piler die Vorab-Dimensionie- 
rung jedes Arrays verlangt, 
ganz gleich, wie groß esiist. Die- 
se Dimensionierung ist ja leicht 
nachzuholen, also los. 

Bevor Sie sich jetzt mit einem 
weiteren Compiler-Durchlauf 
die Zeit vertreiben: Lasset mich 
beichten. Ich habe es nicht ge- 
schafft, »KALAHA« mit der Ver- 
sion 1.2 des AG/BASIC-Compi- 
lers mit Handbuch und logi- 
schem Denken zu übersetzen. 
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Die Compilation mit der Version 
13 klappte auf Anhieb, und 
»KALAHA.run« lief und läuft an- 
standslos. Mit der Version 1.2 
des Compilers kam ich auf kei- 
nen grünen Zweig. Ich konnte 
ihm den Gebrauch der Funktio- 
nen »Text&« und »Text Length&« 
aus der »graphics.library« ein- 
fach nicht schmackhaft ma- 
chen. Da half kein Verschieben, 
da half kein »DECLARE FUNC- 
TION« (was ja eigentlich auch 
nicht nötig wäre - aber den Ver- 
such war's wert). Und wie ge- 
sagt: Erst der Ablauf des Com- 
pilats brachte die Fehlermel- 
dung zutage - ein typischer 


Typische 
Fehlermeldung 


»Run time - Error« also, aber in 
seiner Aussage eher verwir- 
rend als erklärend: »error 5 in 
xxxxx«. Fehler #5 aus der Ru- 
brik »Run-time-Errors« sagt 
aus, daß ein Library-Aufruf nicht 
korrekt erfolgte. Die angegebe- 
ne Zeilennummer führte uns 
zum ersten Aufruf der »Text&«- 
Routine. Ich konnte für diese 
Fehlermeldung keine logische 
Erklärung finden. Erst, als ich 
schon das Handtuch geworfen 
hatten, und ich mit Krötenpul- 
ver und Zauberspruch bei Voll- 
mond mein Glück versuchte, 
ward mir Erfolg beschieden. 
Der Aufruf »LIBRARY "gra- 
phics.library”« mußte der erste 
in der Liste sein. Von da an lief 
das Compilat einwandfrei, aber 
Erklärung habe ich dafür keine. 
Die Tatsache, daß dieser Effekt 
(von »Fehler« wollen wir hier 
nicht sprechen) in der Version 
13 nicht mehr auftritt, beweist 
eigentlich, daß Absoft dieser 
Bug bekannt gewesen sein 
müßte - warum, so frage ich, 
gibt es bei Bekanntwerden sol- 
cher Gemeinheiten keine Infor- 
mation für die registrierten An- 
wender. Oder zumindest eine 
Information des Herstellers an 
die einschlägigen Fachzeit- 
schriften. 

im Zuge meiner verzweifel- 
ten Suchaktion machte ich 
mich auch daran, die Unter- 
schiede zwischen den Versio- 
nen »1.2« und »1.3« etwas näher 
zu beleuchten. Die »Ware fürs 
Geld« ist umfangmäßig in etwa 
gleich geblieben: Eine Diskette 
(randvoll) und ein Handbuch 
(kein Ringordner mehr - sicher 
eine Geschmacksfrage). Les- 
barkeit und Übersichtlichkeit 
des Handbuches wurde meiner 
Meinung nach durch eine neue 
Layout-Gestaltung stark ver- 
bessert. 


Auf der Diskette finden Sie 
wieder die von der Version 1.2 
bekannten Ubungsprogramme 
zu den einzelnen Kapiteln des 
Handbuches und das Pro- 
gramm »SORTSUBS«, mit dem 
Sie Ihre Quelltexte von wild ver- 
streuten Unterprogrammen 
säubern. Neu hinzugekommen 
sind ein Kalkulationsprogramm 
samt AC/BASIC-Quelltext und 
englischer Anleitung, mehrere 
Demo-Programme, ein Umge- 
bungsmanipulierer (»Environ- 
ment Editor« klingt zugegebe- 
nermaßen viel schöner) und ein 
recht umfangreiches ReadMe- 
File, in den Sie viele Hinweise 
und Veränderung zur vorherge- 
henden Version finden. 

»EvEd« gibt Ihnen menü- 
orientierten Zugriff auf ver- 
schiedene Eigenschaft des BA- 
SIC-Compilers und der zuge- 
hörigen Run-time-Libraries. 
Welche Parameter verändert 
werden können, entnehmen 
Sie bitte der Hardcopy des 
Hilfsbildschirms von »EvEd«, 
die wir in Bild 2 festgehalten ha- 
ben. Lassen Sie aber »EvEd« 
bloß nicht auf Ihre Original- 
Diskette los. Die Modifikationen 
werden nicht etwa in einem se- 
paraten Konfigurationsfile ab- 
gelegt, sondern ganz brutal in 
das File »ac-basic« bzw. in die 
Run-time-Libraries hineinge- 
schrieben. Es ist zwar ein »Re- 
store Defaultse vorgesehen, 
aber mit der Original-Diskette 
würde ich das nicht ausprobie- 
ren. Schon gar nicht, nachdem 
ich von »EvEd« mehrfach zu 
einem unterhaltsamen »Click 
Mouse« aufgefordert wurde, lei- 
der immer in Zusammenhang 
mit einem »error nn in xxxxx«. 
Was mit Files passiert, die nicht 
ordnungsgemäß geschlossen 
werden, brauche ich Ihnen si- 
cher nicht zu erzählen - also 
Pfoten weg von der Original- 
Diskette bei der Arbeit mit 
»EvEd«. 

Verbesserungen der Version 
13 des AC/BASIC-Compilers 
gegenüber seinem Vorgänger 
nehmen im ReadMe-File brei- 
ten Raum ein. Ich habe diese 
Verbesserungen in Tabelle 3 
stichwortartig zusammenge- 
faßt. Die ersten Erfahrungen 
meinerseits sprechen sehr für 
die Version 1.3 des Absoft-AC/ 
BASIC-Compilers. Wenn jetzt 
noch der After-Sales-Support 
seitens Absoft intensiver wäre, 
könnte ich den Absoft-Compiler 
uneingeschränkt empfehlen. 
Dennoch bei dem momentanen 
Stand der Dinge sind wir noch 
weit von der Traumformel 
»Compiler starten - laufen las- 
sen - fertig!« entfernt. pe 
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Gegenüber C, Modula oder Assembler ist 
es recht langsam, das Amiga-Basic. Der 
Compiler von HiSoft schafft Abhilfe und 
bietet laut Hersteller vieles. Hält er auch, 
was er verspricht? Ein erfahrener Pro- 
grammierer gibt seine Erfahrungen preis. 


Von Andreas Regul 


stungsfähigen und gleichzeitig komfortablen Compiler für 
das von Commodore mitgelieferte Basic. Etwa Mitte 1989 ist 
er auf den Markt gekommen, der HiSoft-Compiler (Bild 1). 

Zunächst muß gesagt werden, daß dieser Compiler sehr schnell 
ablaufende Programme generiert. Aber wie fast jedes neue Soft- 
wareprodukt, enthält der HiSoft-Basic-Compiler einige Mängel und 
Inkompatibilitäten zum Amiga-Basic, die beim Compilieren Fehler 
verursachen. Das kann jeden zur Verzweiflung bringen, der dies in 
seinen Programmen nicht berücksichtigt. Wer schon versuchte, 
seine Programme zu compilieren, stieß sicher auf Probleme, zu de- 
nen im Handbuch keine Hinweise zu finden waren. 

Der HiSoft-Compiler verspricht, weitgehend kompatibel zu allen 
Basic-Dialekten zu sein. Hierin ist sicher die Ursache zu suchen, 
warum nicht jeder Befehl des Amiga-Basic hundertprozentig über- 
setzt wird. Im folgenden wollen wir daher die Grenzen des Compi- 
lers beschreiben und Lösungswege zeigen wie die Schwachstel- 
len zu umgehen sind. 

1. Programmstruktur 

Die erste Einschränkung des Compilers liegt in der Programm- 
struktur des Quelltextes. Im Gegensatz zum Amiga-Basic-Interpre- 
ter werden einige Anforderungen an die Reihenfolge einzelner Pro- 
grammelemente gestellt. 
© Bei der Verwendung von Betriebssystem-Routinen ist es dem 
Interpreter gleichgültig, ob die Deklaration direkt am Anfang desLLi- 
stings steht oder in einem Unterprogramm, das beim Starten des 
Programms aufgerufen wird. Die folgenden Listingausschnitte sol- 
len dies verdeutlichen. Variante 1: 


LIBRARY "libs/dos.library” 
DECLARE FUNCTION CreateDir& LIBRARY 
eRErE (weitere Befehle) 


S:: lange wartete der Amiga-Basic-User auf einen lei- 


Variante Il: 


GOSUB IncludeLibs 
ee (weitere Befehle) 

IneludeLibs: j 
LIBRARY ”libs/dos.library” 
DECLARE FUNCTION CreateDir& LIBRARY 
RETURN 


Beide Versionen arbeitet der Basic-Interpreter fehlerfrei ab. 
Compiliert man jedoch Variante Il, treten beim Starten des Pro- 
gramms Fehler auf. In harmlosen Fällen werden die Systemrouti- 
nen nicht richtig aufgerufen und verursachen falsche Ausgaben 
auf dem Bildschirm. Meist stürzt der Rechner allerdings ab, beson- 
ders wenn Routinen aus der EXEC- oder DOS-Library verwendet 
werden. 

Sie müssen die Einbindung von Bibliotheken daher immer an 
den Anfang des Listings stellen. Hinzu kommt, daß während des 
Compilierens keine entsprechende Fehlermeldung erscheint. Man 
gewinnt fälschlicherweise den Eindruck, es wäre erfolgreich com- 
piliert worden. 

e Wollen Sie mit dem Befehl 


REM $option ... 


bestimmte Optionen einstellen, die das ganze Programm betreffen 
(also keine, die lokal umgestellt werden können), muß dies in der 
allerersten Zeile angegeben werden. Es dürfen auch keine Re- 
mark-Zeilen vorhergehen. 

® Das Amiga-Basic unterstützt spezielle Unterprogramme, die mit 


SUB Unterprogrammname 
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Was kann der Hi 


eingeleitet 
werden. Die- 
se können beim Interpre- 
ter an beliebiger Stelle im 
Listing stehen. Für den Compiler müssen 
sie an das Ende des Listings angehängt 
werden. 

2. Konstruktionen: 

Wie bei der Programmstruktur fordert der Compiler auch bei ver- 
schiedenen Befehlskonstruktionen eine festgelegte Syntax, die 
der Interpreter nicht zwingend verlangt. 
® Folgende Zeilen deuten zwar nicht auf guten Programmierstil 
hin, sind jedoch unter Amiga-Basic erlaubt: 

FOR i=1 TO 10 

IF wert=1 THEN NEXT i 


Die NEXT-Anweisung wird hier nur dann weiter ausgeführt, 
wenn die vorangehende Bedingung erfüllt ist. Versuchen Sie diese 
Zeilen zu compilieren, wird der Compilier-Vorgang an dieser Stelle 
mit einer Fehlermeldung unterbrochen. Sie können Ihr Programm 
jedoch sehr einfach anpassen, indem Sie zunächst mit der Such- 
funktion nach »THEN NEXTs alle diese Passagen heraussuchen 
und in die nachfolgende Schreibweise umsetzen: 


FOR i=1 TO 10 

IF wert<>1 THEN weiter 

NEXT i 
weiter: 

.... (weitere Befehle) 

Zu beachten ist, daß die Überprüfung der Bedingung umgekehrt 
werden muß (aus »wert=1« wird »wert< >1«). Dies kann speziell 
bei umfangreicheren Bedingungen, die mit AND oder OR ver- 
knüpft sind, schwierig werden. Durchdenken Sie Ihre Programme 
daher gut, da im Nachhinein solche veränderten Bedingungen nur 
mühsam nachzuvollziehen sind. Weiterhin muß jeweils ein Label 
(oben »weiter«) eingefügt werden, zu dem aus der Schleife ge- 
sprungen wird. Wenn Ihr Programm mehrere solcher Konstruktio- 
nen beinhaltet, müssen natürlich verschiedene Label verwendet 
werden. Am einfachsten istes, eine durchlaufende Nummer an das 
Label zu hängen. 

Für alle, die eine elegantere Lösung bevorzugen, bieten die neu- 
en Schleifenbefehle des HiSoft-Compilers gute Alternativen. Hier 
eignen sich besonders die REPEAT...END REPEAT, DO,..UNTIL 
und WHILE...WEND Schleifen. Ein Beispiel: 


WHILE bedingung=1 
a (weitere Befehle) 
WEND 

oder: 
DO 


22... (weitere Befehle) 

UNTIL bedingung< >1 

Im unteren Beispiel werden die Befehle in der Schleife minde- 
stens einmal abgearbeitet, da die Überprüfung der Bedingung erst 
am Ende vorgenommen wird. 

e Sie wissen sicher, daß es bei FOR...NEXT- Schleifen im Amiga- 
Basic nicht unbedingt erforderlich ist, die Laufvariable hinter NEXT 
noch einmal anzugeben. Dies ist in der Regel auch beim Compiler 
nicht nötig. Jedoch zeigte sich, daß bei ineinander verschachtelten 
Schleifen, besonders wenn diese Unterprogrammaufrufe oder ver- 
schiedenartige Schleifen enthalten, Fehler beim Compilieren auf- 
treten können. Der Compiler bricht in manchen Fällen mit einer 
Fehlermeldung ab, die darauf hinweist, daß er auf ein unerwartetes 
NEXT oder ein NEXT mit falscher Laufvariable gestoßen ist. Sie 
sollten daher - auch wegen der besseren Lesbarkeit - stets die 
Laufvariablen hinter NEXT angeben. 

3. Aufrufe: 

e Im Amiga-Basic können Sie prozedurähnliche Unterprogramme 
mit dem SUB-Befehl einleiten. Beim Aufruf dieser Unterprogram- 
me reicht es meist, den Namen und eventuelle Parameter anzuge- 
ben. Dies wird auch beim Compiler so gehandhabt. Dennoch kann 
es zu Problemen führen, die beim Interpreter nicht auftauchen. Es 
ist sinnvoll, beim Aufruf dieser Unterprogramme den CALL-Befehl 
voranzustellen. Setzen Sie den Aufruf an den Anfang einer Pro- 


grammzeile, gibt es beim Compiler ebenfalls keine Fehler. 
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4. Sprung- 
marken, Va- 
riablen und sonstige 


piler? 
Bezeichner: 


Soft- ne 
e Ein deutlicher Nachteil des Compi- 


F lers ist, daß Sprungmarken und Varia- 


blen in einer Liste verwaltet werden und daher nur 

einmalig verwendet werden dürfen. Es ist also un- 
zulässig, gleiche Sprungmarken oder Variablennamen an mehre- 
ren Stellen des Programms zu verwenden, da es sonst sehr wahr- 
scheinlich ist, daß der Compilier-Vorgang mit einer Fehlermeldung 
abgebrochen wird. Überprüfen Sie Ihren Quelltext daraufhin, und 
tauschen Sie gegebenenfalls gleiche Bezeichner aus. 
© Wie im Amiga-Basic dürfen beim Compiler keine reservierten 
Namen als Sprungmarken oder Variablennamen verwendet wer- 
den. Reservierte Namen sind alle Befehle des Amiga-Basic - dar- 
über hinaus der zusätzliche Befehlsschatz des HiSoft-Basic. 

In diesen wurden eine ganze Reihe zusätzlicher Befehle aufge- 
nommen, um die Kompatibilität auch zu anderen Basic-Dialekten 
zu wahren. Der Amiga-Basic-Programmierer muß also aufpassen, 
daß er keine dieser zusätzlichen reservierten Wörter als Sprung- 
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Bild 1. Der 
HiSoft-Basic- 
Compiler 
erzeugt sehr 
schnell 
ablaufende 
Programme, ist 
aber in der 
Version 1.0 
noch nicht 
100prozentig 
kompatibel 
zum Amiga- 
Basic 


jebrauchs von Bibloinoken 


Amiga e 
während de: 


Markt&echnik 


HiSoft 


marken oder Variablennamen verwendet. Vergleichen Sie am be- 
sten die Liste der reservierten Wörter (Sie finden sie im Handbuch) 
und tauschen Sie nötigenfalls die Bezeichner aus. Am sinnvollsten 
ist es, hierzu die »Suchen und Ersetzen«-Funktion zu verwenden. 
Zum einen werden die Bezeichner sehr schnell ausgewechselt, 
zum anderen ist ein Übersehen einzelner Namen ausgeschlossen. 

Gleiche Variablen können zu unvorhersehbaren Folgen führen, 
da der Compiler nicht in jedem Fall darauf hinweist. Beim Programm- 
ablauf würden Fehler in mathematischen Berechnungen auftreten. 
© Neben diesen »primären« reservierten Namen gibt es auch sol- 
che, die beim Öffnen von Betriebssystem-Bibliotheken entstehen. 
Nach dem Öffnen einer solchen Bibliothek sind alle ihre Routinen 
direkt mit Namen aufrufbar. Jetzt gehören auch die Namen dieser 
Routinen zum reservierten Wortschatz. Wenn Sie beispielsweise 
die Graphics-Library öffnen, die die Routine »text« enthält, können 
Sie keinen Bezeichner mehr mit gleichem Namen verwenden. Dies 
würde der Compiler mit einer Fehlermeldung quittiert. 
5, Undefinierte Sprungmarken: 
e Wenn Sie schon häufiger in Basic programmierten, ist Ihnen fol- 
gende Vorgehensweise nicht unbekannt: 

Sie wollen ein größeres Projekt aufbauen und teilen das Pro- 
gramm in einzelnen Funktionen ein, die von einem Hauptmenü 
aufgerufen werden. Der folgende Listingausschnitt verdeutlicht es: 


PRINT *-1- Eingabe” 
PRINT *-2- Ausgabe” 
PRINT ”-3- Laden” 

PRINT ”-4- Speichern” 
PRINT *-5- Ende” 

INPUT ”Ihre Wahl: ”,‚wahl 
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wahl GOSUB eingabe,ausgabe,laden,speichern,ende 


(weiterer Programmtext) 


ausgabe: 
..... (weiterer 
RETURN 

Sie erstellen zunächst das Hauptmenü und programmieren 
nach und nach die einzelnen Funktionen. Das heißt, für einige Me- 
nüpunkte sind die weiteren Funktionen noch nicht entwickelt. So- 
mit existieren auch keine Sprungmarken, obwohl Sie schon im 
ON...GOSUB-Befehl enthalten sind. 

Der Interpreter bearbeitet dieses Programm anstandslos, solan- 
ge Sie nicht eine der noch nicht vorhandenen Funktionen wählen. 
Da der Interpreter nur die gerade benötigte Programmzeile über- 
setzt, wird er auch nicht darauf aufmerksam, daß einige Sprung- 
marken noch nicht vorhanden sind. 

Anders ist es beim Compiler. Da zuerst der gesamte Quelltext in 
Maschinensprache übersetzt wird, stößt er unweigerlich auf die un- 
definierten Verzweigungen und bricht mit einer Fehlermeldung ab. 
Wenn Sie dennoch auf diese Programmierweise nicht verzichten 
wollen, können Sie einen Abbruch wie folgt umgehen: 


*-1- Eingabe” 
Ausgabe” 
Laden” 


Progranmtext) 


PRINT 


PRINT *-3- 
PRINT ”-4- Speichern” 

PRINT "-5- Ende” 

INPUT "Ihre Wahl: "‚wahl 

ON wahl GOSUB eingabe, ausgabe, laden, speichern,ende 
eingabe: 
(weiterer 


easge" Programmtext) 
RETURN 

ausgabe: 

(weiterer Programmtext) 


RETURN 
speichern: 
RETURN 
ende: 
RETURN 

Sie definieren also zunächst die Sprungmarken und verlassen 
die Unterprogramme sofort wieder durch ein RETURN. Später kön- 
nen Sie die Befehle für die Funktionen einfach einfügen. 

Dies sollte nur ein Beispiel dafür sein, daß das Programm keine 
undefinierten Sprünge durch GOTO, GOSUB oder ON GOSUB 
enthalten darf. Ebenfalls müssen alle weiteren Befehle vollständig 
sein, auch wenn Sie diese zunächst noch nicht in Ihrem Programm 
benötigen. In dieser Beziehung müssen Compiler genauer als In- 
terpreter arbeiten, da sie im Gegensatz zu diesen den Quelltext 
vollständig in ein lauffähiges Maschinenprogramm umsetzen. 

6. Mathematische Ausdrücke: 

® Im Amiga-Basic ist es bei einfacheren Programmen nicht unbe- 
dingt notwendig, auf den verwendeten Zahlentyp zu achten. In der 
Regel genügen kurze Ganzzahlen und Fließkommazahlen einfa- 
cher Genauigkeit. Da die Umwandlung einzelner Variablentypen 
vom Interpreter vollständig übernommen wird, bleiben dem Pro- 
grammierer fast alle Einschränkungen verborgen. So ist es ohne 
weiteres möglich, folgende Zuweisungen zu verwenden: 


KurzeGanzzahl% 
angeGanzzahl& 


FließkommaEinfach! 


FließkommaDoppelt # 
FließkommaEinfach! = FließkommaDoppelt# 
1ießkommaDoppelt# = KurzeGanzzahl% 


Lediglich beim Umwandeln von Zahlen in Zeichenketten und 
umgekehrt müssen die Funktionen STR$() bzw. VAL() benutzt wer- 
den. Diese einfacheren Umwandlungen nimmt der Compiler kor- 
rekt vor. Schwieriger wird es, wenn komplexe mathematische Aus- 
drücke zugewiesen werden. Zunächst glaubt man, der Compiler 
bearbeite auch dies richtig, da er weder auf Fehler noch Laufzeit- 
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fehler hinweist. Folgender Programmausschnitt soll das Problem 
verdeutlichen (beachten Sie besonders die Typkennungen): 
anteil% = 420 
prozent = 12 
gesamt% = anteil% x 100 / prozent% 
PRINT gesamt% 


Wie Sie sicher festgestellt haben, ist dies die Berechnung eines 
Gesamtwertes aufgrund eines Anteils, dessen Prozentwert vom 
Gesamtwert angegeben ist. Es handelt sich also um eine schlichte 
Dreisatzrechnung. Alle Variablen haben die Kennung »%«, welche 
kurze Ganzzahlen bezeichnet. Der Wertebereich dieses Variablen- 
typs beinhaltet alle Ganzzahlen von -32768 bis 32767. Als Wert für 
die Variable »gesamt%« müßte sich 3500 ergeben. Wenn Sie diese 
Programmzeilen in Ihren Basic-Interpreter eintippen und es star- 
ten, wird dieser Wert korrekt berechnet. 

‚Anders ist es beim HiSoft-Compiler. Das Listing wird zwar ohne 
Fehlermeldungen bearbeitet, jedoch bricht nach dem Starten das 
Laufzeitsystem mit der Fehlermeldung »Arithmetischer Überlauf« 
ab. Sie werden sich fragen, was geschehen ist, weil alle Typein- 
schränkungen eingehalten wurden und das Ergebnis von 3500 kei- 
nesfalls den Integer-Typ überschreitet. Tatsächlich handelt es sich 
um eine schlechte Umsetzung der Bearbeitung von Variablenzu- 
weisungen und der Berechnung mathematischer Ausdrücke. 


Falsche Berechnungen 


Um zu verstehen, warum das Programm fehlerhaft arbeitet, ist 
etwas Hintergrundwissen über die Umsetzung in Maschinenspra- 
che notwendig. Der Compiler trifft während des Übersetzens auf 
die als »kurze Ganzzahl« definierte Variable »gesamt%« und weist 
ihr einen entsprechend großen Speicherbereich zu. Alle Werte, die 
dieser Variablen während des Programmablaufs zugewiesen wer- 
den, schreibt der Computer in diese Speicherstellen. 

‚Sehen wir uns nochmals die entsprechende Programmzeile an 
(8. Listingzeile). Dort wird die Variable »anteil%« zunächst mit 100 
multipliziert. Dies ergibt den Wert 42000. Um weiterrechnen zu 
können, muß dieser Wert erst zwischengespeichert werden, damit 
er vor der nächsten Rechnung nicht verlorengeht. Hierbei wird nun 
versucht, die Zahl 42000 in »gesamt%« abzulegen, was natürlich 
zu einem Fehler führen muß, da »gesamt%« nur die Ganzzahlen 
bis 32767 einschließt und die Zahl 42000 zu groß ist. Das Programm 
erkennt überhaupt nicht, daß der Endwert im Gültigkeitsbereich 
liegt, weil es schon vor der Division durch »prozent%« einen Lauf- 
zeitfehler erzeugt. 

Bitte machen Sie sich diese Problematik vollständig klar, da es 
häufig auftritt. Außerdem sind solche Fehler sehrtückisch und spä- 
ter kaum nachvollziehbar. 

Es gibt zwei Möglichkeiten, dieses Problem zu umgehen. Beide 
haben Vor- und Nachteile: 

a) Im obigen Beispiel trat der Fehler in dieser Zeile auf: 


gesamt? = anteil® » 100 / prozent% 


Das Zwischenergebnis ergibt einen zu großen Wert, weil zuerst 
die Multiplikation durchgeführt wird. Dreht man diese Reihenfolge 
um, entsteht mathematisch das gleiche Ergebnis. In diesem Fall 
wird die Variable »anteil%« zunächst durch die Prozentzahl divi- 
diert, und es entsteht als Zwischenergebnis ein relativ kleiner Wert. 


gesamt% = anteil® / prozent# x 100 


Diese Methode hat jedoch den 'sachteil, daß das Zwischener- 

gebnis, das sehr wahrscheinlich eıne Fließkommazahl ergibt, ge- 
rundet wird, da»gesamt%« als Ganzzahl (Integer-Zahl) definiert ist. 
Nach der darauffolgenden Multiplikation mit 100 ist der Rundungs- 
fehler recht hoch. 
b) Der zweite Lösungsvorschlag hat einen geringeren Rundungs- 
fehler, da die Reihenfolge der Berechnung beibehalten wird. Durch 
Einführen einer Hilfsvariablen vom Typ »lange Ganzzahl« umgeht 
man das Problem mit dem zu großen Wert von 42000: 


hilfsvariable& = anteil% x 100 / prozent% 

gesamt% = hilfsvariable& 

Dan diesem Fall der Variablen »gesamt%« nur das tatsächliche 
Endergebnis übergeben wird, entsteht kein Fehler. Wie jedoch 
schon die zwei Programmzeilen zeigen, ist diese Methode wesent- 
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lich langsamer und sollte vermieden werden, wenn es auf Arbeits- 
geschwindigkeit ankommt. Die Erfahrung zeigt, daß meist der erste 
Lösungsweg ausreicht. 

Um ganz genaue Ergebnisse zu erhalten, sollte man ohnehin 
besser mit Fließkommavariablen arbeiten. Durchdenken Sie sol- 
che Programmabschnitte in Ihren Listings genau, da später auftre- 
tende Fehler beim fertigen Programm viel ärgerlicher sind als eine 
genaue Kontrolle während der Programmentwicklung. 

Am sinnvollsten ist es, solche Rechenausdrücke mit den maxi- 
malen Zahlen, die auftauchen können, durchzurechnen und an- 
schließend zu entscheiden, ob ein anderer Weg zu wählen ist. 

7. Speicherreservierung: 

e Der Amiga-Basic-Interpreter stellt nach dem Starten immer 
25000 Byte für Programmtext zur Verfügung. Dieser Bereich kann 
mit dem Befehl CLEAR vergrößert und verkleinert werden. Bei län- 
geren Programmen ist es notwendig, zunächst ein kleines Lade- 
programm zu starten, das den Bereich neu definiert und das 
Hauptprogramm nachlädt. Beispiel: 


CLEAR, 80000 
RUN Programnnane 


Beim HiSoft-Compiler ist das Ladeprogramm nicht nötig, da vor 
dem Compilieren der Arbeitsspeicher festgelegt wird. 

Allerdings scheint der Compiler den CLEAR-Befehl nicht richtig 
umzusetzen, da dieser Befehl nach dem Compilieren scheinbar 
überhaupt keinen Einfluß auf die Speichergröße genommen hat. 
Der mit dem Befehl FRE(0) festgestellte freie Speicher bleibt auch 
bei verschiedenen Werten hinter CLEAR gleich. 

Um dennoch den Arbeitsspeicher zu vergrößern, muß dies in 
den Compileroptionen angegeben werden. In der ersten Listingzei- 
le wird diese Angabe wie folgt vorgenommen: 


' SOPTION k80 


Der Buchstabe »k« gibt an, daß mit dem folgenden Wert der Spei- 
cher in KByte angegeben wird. »k80« bedeutet, dem compilierten 
Programm werden 80 KByte freier Speicher reserviert. Sie können 
also den CLEAR-Befehl am Anfang Ihres Listings löschen, da er 
ohnehin keine Wirkung auf den belegten Speicher hat. 

8. Arbeitsspeicher: 

® Um ein Programm mit dem HiSoft-Compiler zu compilieren, 
müssen zunächst einige Optionen und Einstellungen gesetzt wer- 
den. Hierbei kann es schnell zu Problemen führen, da das Hand- 
buch diesbezüglich zwar die einzelnen Optionen erklärt, aber auf 
Fehlbedienungen und deren Lösung nicht weiter eingeht. 

Ganz besonders unterschätzt wird dabei die Wichtigkeit der Grö- 
Be des Arbeitsspeichers. Bei etwas längeren Programmen reichen 
die voreingestellten 100 KByte nicht aus, und der Compiler bricht 
mit der Meldung »Kein Speicher mehr in Modul HEAP« ab. 

Als Faustregel gilt, daß mindestens die vierfache Länge des 

Quelltextes als Arbeitsspeicher angegeben werden sollte. 
e Bei sehr langen Listings und wenig Hauptspeicher Ihres Amiga 
kann der Speicherplatz schnell eng werden. Hierzu ein kleiner Tip: 
Löschen Sie vor dem Compilieren aus dem Quelltext alle Bemer- 
kungszeilen und mögliche Leerzeilen. Auch das Verkürzen der 
Sprungmarken und Variablen kann nützlich sein (dies ließe sich mit 
einem kleinen Hilfsprogramm bewerkstelligen). Wenn Sie darauf 
die Speichergröße des Editors vergrößern, sollten nach dem Laden 
möglichst wenige freie Bytes übrigbleiben. 


Erst ausschalten 


® Es ist auch vorteilhaft, den Computer erst auszuschalten und 
nach dem erneuten Einschalten direkt in den Compiler zu gehen, 
ohne zuvor noch mit anderen Programmen zu arbeiten. Teilweise 
werden von diesen nämlich Treiber nachgeladen, die dann nicht 
mehr aus dem Speicher gelöscht werden. Dies geht teilweise so 
weit, daß zwar für den ersten Compilierungsversuch genügend 
Speicher zur Verfügung steht, aber beim zweiten Versuch die Feh- 
lermeldung »Zu wenig Speicher« erscheint. 

e Versuchen Sie auch, unnötige Daten aus dem Quelltext heraus- 
zunehmen. Es ist z.B. oft möglich, in DATA-Zeilen abgelegte Daten 
in einer ASCII-Datei zu speichern und sie vom Programm mit einer 
kleinen Routine nachzuladen. 

e Injedem Fall sollten Sie bei wenig Hauptspeicher auf die Disket- 
te und nicht in den Speicher compilieren. 


/AMIGA-SONDERHEFT 10 


9. Interrupts: 

e Wenn Sie in Ihren Programmen Interrupts (durch den TIMER- 
Befehl verursachte Ereignisse) verwenden, muß die Option »Event- 
Checks« auf »ja« geschaltet werden, da ansonsten keine Überprü- 
fung der auftretenden Ereignisse vorgenommen wird. 

® Auch wenn Sie den Abbruch des Programms durch die Tasten- 
kombinationen <CTRL C> oder <Amiga .> zulassen wollen, 
muß diese Option gesetzt sein, da diese Tastendrücke ebenfalls als 
Interrupt verwaltet werden. 

10. Ausführbarer und linkbarer Code: 

® Nach dem Handbuch ist es möglich, linkbaren Code zu erzeu- 
‚gen, der auch in andere Programmiersprachen eingebunden wer- 
den kann. Mir ist esjedoch bisher nicht gelungen einen Programm- 
tell in einen anderen einzubinden. Scheinbar sind die Schnittstel- 
len zwischen den Modulen noch nicht vollständig ausgereift. 

11. Zeitweise auftretende Fehler: 

Während meiner Arbeit mit dem HiSoft-Basic-Compiler bin ich 
aufeine ganze Reihe von Fehlern gestoßen, die jedoch nur zeitwei- 
se und meist vollkommen unverständlich auftraten. Ich möchte 
‚aber auch hierauf hinweisen, da mit Sicherheit der eine oder ande- 
re Programmierer vor den gleichen Problemen steht. 

e Beissehr langen Quelltexten (ab etwa 100 KByte) kam es fast im- 
mer zu Komplikationen, da bei einem Hauptspeicher von 1 MByte 
nahezu der gesamte Computerspeicher während des Compilie- 
rens benötigt wird. Es kam vor, daß der Compiler den gesamten 
Quelltext ohne Fehlermeldung bearbeitete, aber ganz am Ende ei- 
nen »Internen Fehler« anzeigte. Bei der Rückkehr in den Editor wur- 
de der Cursor jeweils hinter die letzte Zeile des Programms gesetzt, 
wo dieser Fehler aufgetreten sein soll. Nachdem ich alle Bemer- 
kungszeilen und Leerzeilen gelöscht und die Sprungmarken ver- 
kürzt hatte, arbeitete er wieder fehlerfrei. Mögliche Gründe können 
darin liegen, daß die Anzahl der Bezeichner zu groß war oder daß 
Sprünge mit GOTO oder GOSUB eine zu große Distanz erhielten. 
Möglicherweise liegt die Ursache auch darin, daß dem Compiler 
selber für die Zwischenspeicherung von Werten nicht mehr genug 
freier Hauptspeicher zur Verfügung stand. 

e Bei einem Programm kam es vor, daß der LOCATE-Befehl nicht 
mehr funktionierte und alle Ausgaben untereinander geschrieben 
wurden. Eine recht sichere Abhilfe bietet folgendes Listing, das von 
Routinen aus der Graphics-Library Gebrauch macht: 


LIBRARY ”graphies.library” 

rastport& = WINDOW (8) 
SUB printtext (x,y,‚text$) 

SHARED rastport& 

CALL Move& (rastport&,x,y) 

CALL Text& (rastport&,SADD(text$),LEN(text$)) 
END SUB 


Eine Zeile kann nun folgendermaßen ausgegeben werden: 
printtext 100,50, "Text an der Position (100/50) ” 


Die ersten beiden Zahlen geben die Pixel-Position des ersten 
Textzeichens an. Zur Ausgabe von Zahlen müssen diese zuvor in 
eine Zeichenkette umgewandelt werden - mit dem Befehl »STR$ 
(zahlvariable)«, 
® Eskann auch vorkommen, daß nicht alle Tasten der Tastatur ab- 
gefragt werden. Dies betrifft die Funktionstasten, die Cursortasten 
und alle Tasten des Zehnerblocks. Ist dies der Fall, bleibt nur die 
Möglichkeit, den Tastaturcode der gedrückten Tasten direkt aus ei- 
ner Speicherstelle zu lesen: 


code = PEEK(12577793) 


Durch Abfragen dieser Speicherstelle können Sie alle Tasten 
überwachen. Sie müssen dabei berücksichtigen, daß nicht der 
ASCII-Code, sondern der Tastaturcode der entsprechenden Tasten 
zurückgegeben wird, welcher anschließend von Ihnen ausgewertet 
werden muß. Es wird auch ein Wert zurückgegeben, wenn eine Ta- 
ste losgelassen wurde oder wenn <SHIFT>, <Alt> etc. gedrückt 
wurde. 

® Weiterhin kann eine falsche Verwendung des GET- und PUT- 
Befehls für Grafiken einen Absturz des Rechners verursachen. Um 
dies zu umgehen, müssen Sie überprüfen, ob ein Teil des angege- 
benen Bereiches außerhalb des aktuellen Fensters liegt. Ist dies 
der Fall und wird danach der PUT-Befehl angewandt, läßt sich ein 
‚Absturz kaum vermeiden. Scheinbar werden die Grafikdaten, die 
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außerhalb des Fensters liegen, trotzdem an einer bestimmten Stel- 
le in den Speicher geschrieben. Dabei überschreibt der Computer 
andere Daten, und es kommt zur Guru-Meldung. 

Beachten Sie alle bisher beschriebenen Punkte, dürfte einem er- 
folgreichen Compilieren Ihrer Programme nichts mehr im Wege 
stehen. 

Neben dem Standard-Befehlssatz des Amiga-Basic stellt das 
HiSoft-Basic eine Reihe weiterer Befehle zur Verfügung, die Sie 
sinnvoll in Ihren Programmen einsetzen können. Im folgenden stel- 
len wir diese zusätzlichen Befehle kurz vor und verdeutlichen Ihre 
Anwendung an kleinen Beispielen. 

CONST (Anweisung): 

Die Anweisung CONST definiert symbolische Konstanten, die 
anstelle von Ganzzahlen verwendet werden können. Konstanten 
werden meist am Anfang eines Programms definiert und können 
später in ihrem Wert nicht verändert werden. 

Sie dienen hauptsächlich dazu, ein Programm übersichtlicher 
und verständlicher zu machen, da ein Konstantenname mehr aus- 
sagt als eine einfache Ganzzahl. Beispiel: 


CONST Interlace = 4 
CONST BitPlanes = 3 
SCREEN 1,640,512,BitPlanes, Interlace 


In diesem Screen-Befehl ist durch die Verwendung der Konstan- 
ten »BitPlanes« und »Interlace« deutlich zu erkennen, welche Be- 
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deutung die angegebenen Werte haben. Wären die Ziffern ange- 
geben, käme diese Verwendung nicht so deutlich heraus. 
DECR und INCR (Anweisung): 

Diese Befehle bewirken das Erniedrigen (DECR) bzw. Erhöhen 
(INCR) einer Variablen um den Wert 1. Beispiel: 


INCR index 
Dies hat die gleiche Funktion wie: 
index = index + 1 


REDIM [APPEND] (Anweisung): 

Die Größe eines angegebenen Feldes wird verändert. Im Gegen- 
satz zum Amiga-Basic verwaltet das HiSoft-Basic Felder dyna- 
misch, so daß ihre Größe verändert werden kann. Angewendet wird 
dies speziell dann, wenn beim Programmstart noch nicht feststeht, 
wie viele Elemente im Feld benötigt werden. 


REDIM text$ 
hat die gleiche Funktion wie 
ERASE text$:DIM text$(100) 


Die Werte im Feld gehen also verloren. Mit REDIM APPEND 
kann die Größe des Feldes verändert werden, wobei der Inhalt des 
Feldes erhalten bleibt. Beim Verkleinern gehen natürlich die Daten 
der abgeschnittenen Elemente verloren. 

Mit REDIM läßt sich auch die Dimension des Feldes verändern, 
jedoch mit dem Nachteil, daß alle Daten verlorengehen. So schön 
diese Anweisung auf den ersten Blick erscheinen mag, eine voll- 
ständig dynamische Speicherverwaltung läßt sich nicht verwirkli- 
chen. Wenn Felder in ihrer Größe verändert werden und der Inhalt 
erhalten bleiben soll, muß genug Speicher zur Verfügung stehen, 
um das alte Feld zwischenzuspeichern. 

Letztendlich ist der verfügbare Speicher von der am Beginn des 
Programms festgelegten »Speichergröße für Basic« einge- 
schränkt. Die mit »$OPTION kxxx« angegebene Speichergröße 
kann nicht überschritten werden. 

FEXISTS (Funktion): 

Diese Funktion bestimmt, ob eine Datei vorhanden ist. Sie kön- 
nen in Ihren Programmen abfragen, ob ein Dateiname vorliegt. 

Das Programm wird durch eine Fehleingabe also nicht mehr ab- 
gebrochen. Ist die Datei vorhanden, wird »-1«, ansonsten »0« zu- 
rückgegeben. Beispiel: 

IF NOT FEXISTS(”Dokument”) THEN 

PRINT "Datei nicht gefunden.” 

END IF 
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MKDIR (Anweisung): 
Dieser Befehl legt mit dem angegebenen Namen ein neues Un- 
terverzeichnis an. Beispiel: 


MKDIR (”Texte”) 


legt im aktuellen Verzeichnis das neue Unterverzeichnis »Texte« an. 
RMDIR (Anweisung): 

Das Unterverzeichnis mit dem angegebenen Namen wird ge- 
löscht. Es müssen jedoch die einzelnen Dateien in diesem Ver- 
zeichnis zuvor gelöscht worden sein, es darf auch keine ».info«- 
Dateien mehr enthalten. Beispiel: 


RMDIR ( Texte”) 


löscht das Unterverzeichnis »Texte«. 
RESET (Anweisung): 

Alle offenen Dateien werden geschlossen. Diese Anweisung 
kann z.B. sehr nützlich sein, wenn in einer Fehlerbehandlungs- 
Routine (ON ERROR GOSUB xxx) die geöffneten Dateien ge- 
schlossen werden müssen, aber in der Routine selber nicht geprüft 
werden kann, welche Dateien geöffnet waren. 

BLOAD (Anweisung): 

Eine Binärdatei wird in den angegebenen Puffer geladen. Dies 
könnte z.B. eine Grafik oder ein Bild sein. 

Bitte gehen Sie vorsichtig mit diesem Befehl um, da nicht nach- 
geprüft wird, ob wichtige Daten im System überschrieben werden, 
was einen Absturz verursachen könnte, 

BSAVE (Anweisung): 

Istdas Gegenstück zu BLOAD. Eine Binärdatei wird gespeichert. 
PCOPY (Anweisung): 

Diese Anweisung gibt eine Hardcopy der Bildschirmdarstellung 
auf dem Drucker aus. Die Druckerkonfiguration entspricht der Vor- 
einstellung in der Workbench. 

DO...LOOP (Anweisung): 

Diese Schleifenkonstruktion bietet gegenüber FOR...NEXT-und 
WHILE..WEND-Schleifen große Vorteile. Sowohl am Anfang als 
auch am Ende können Bedingungen zum Beenden der Schleife 
angegeben werden. Mit EXIT LOOP oder EXIT DO läßt sich die 
Schleife auch innerhalb derselben abbrechen. Das Programm wird 
dann hinter dem Ende der Schleife fortgesetzt. 

Als Anfangsbedingungen gibt es folgende Möglichkeiten: 


Do (ohne Bedingung) 

DO WHILE (Schleife wird ausgeführt, bis Bedingung 
unwahr ist) 

DO UNTIL (Schleife wird ausgeführt, bis Bedingung 


wahr ist) 
Es gibt folgende Endbedingungen: 
LOOP (ohne Bedingung) 


LOOP WHILE (wird ausgeführt, bis Bedingung 

unwahr ist) 

LOOP UNTIL (wird ausgeführt, bis Bedingung 

wahr ist) 

Der Hauptunterschied zwischen der Angabe der Bedingung am 
‚Anfang bzw. am Ende der Schleife liegt darin, daß bei einer Endbe- 
dingung die Schleife mindestens einmal ausgeführt wird. 

Es lassen sich auch gleichzeitig Anfangs- und Endbedingungen 
in einer Schleife verwenden. Beispiel: 


f=fxi 
UNTIL i =5 


REPEAT...END REPEAT (Anweisung): 

Diese Schleifenkonstruktion besitzt keine Anfangs- oder Endbe- 
dingungen. Sie wird so lange ausgeführt, bis innerhalb der Schlei- 
fe die EXIT-Anweisung abgearbeitet ist. Sowohl hinter REPEAT als 
auch hinter END REPEAT muß eine Schleifenvarlable angegeben 
werden, die im Gegensatz zu FOR...NEXT-Schleifen nicht hochge- 
zählt wird. Sie dient als eine Art Sprungmarke. 

Diese Schleifenkonstruktion sollte man nur dann verwenden, 
wenn mehrere dieser Schleifen verschachtelt werden und ein 
Sprung aus einer inneren Schleife hinter das Ende der äußeren 
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weils erhöht. Wenn er größer als 1000 wird, soll die gesamte Schlei- 
fe abgebrochen werden. Dies erfolgt durch die Anweisung »EXIT 
äußere«, 

SELECT...END SELECT (Anweisung): 


ke Alternative zum IF-Befehl. Sehen wir uns ein Beispiel an: 


Variablen relativ einfach verwirklicht werden. Einzelne Vergleichs- 
bedingungen lassen sich hintereinander, durch Komma abge- 
trennt, angeben. Die Überprüfung eines ganzen Wertebereichs 
(CASE 7 TO 11) ist ebenso möglich wie der Vergleich mit einer an- 
deren Variablen. Folgende Vergleichsoperatoren sind zugelassen: 


vorangegangene Bedingung zutreffend ist. 
WINDOW (Anweisung): 


notwendig ist, Andernfalls ist die klare Konstruktion der LOOP- 
Schleife zu bevorzugen. Beispiel: 


i=0 
Pet 
REPEAT äußere 
Deu 
REPEAT innere 
J-J+iaxj 
IF 5>1000 THEN EXIT äußere 
END REPEAT innere 
END REPEAT äußere 


In diesem Beispiel wird der Wert »j« in der inneren Schleife je- 


Die SELECT-Anweisung ist eine komfortable und leistungsstar- 


INPUT a,b 
PRINT *a ist:” 
SELECT CASE a 
CASE -1, >0 
PRINT ”-1 oder positiv” 
CASE 7 TO 11 
PRINT "größer als 6 und kleiner als 12” 
CASE < b 
PRINT ”kleiner als b” 
CASE ELSE 
PRINT "ein anderer Wert” 
END SELECT 


Wie Sie sehen, können komplexere Abfragen einer bestimmten 


eo 
Die Befehlsfolge hinter CASE ELSE wird ausgeführt, wenn keine 


Dieser Befehl existiert bereits im Amiga-Basic. Hier sind eine 


Reihe interessanter Eigenschaften für das zu öffnende Fenster hin- 
zugekommen. Dies betrifft besonders die Typangabe, bei der bis- 
her nur Zahlen bis 16 und deren Kombination möglich waren. 
HiSoft-Basic stellt vier weitere Eigenschaften zur Verfügung: 

32 - Fensterrahmen und -inhalte werden getrennt verwaltet. Die lin- 
ke obere Ecke liegt nun nicht im Rahmen selber, sondern in der lin- 
ken oberen Ecke der Zeichenebene. 

64 - Das Fenster bleibt immer im Hintergrund zu anderen Fenstern. 
128 - Das Fenster erhält keine Ränder. 

256 - Die Angabe der Fenster-Koordinaten beziehen sich auf die 
volle Breite bzw. Höhe des Fensters (inkl. Rahmen). 


Neben diesen zusätzlichen Befehlen lassen sich mit HiSoft-Ba- 


sic auch Rekursionen bearbeiten, was im Amiga-Basic nicht mög- 
lich war. Rekursion bedeutet: Eine Funktion ruft sich selber auf. 


Dies stellt bei manchen Problemen eine einfachere Lösung dar, 


als die Umsetzung durch verschiedene, ineinanderverschachtelte 
Schleifen. Außerdem sind Unterprogramme, die von der Rekursion 
Gebrauch machen, häufig kürzer und leserlicher. Beispiel: 


DEF FNfakultaet (n) 
IFn <= 1 THEN 
FNfakultaet=1 
ELSE 
FNfakultaet = n x FNfakultaet (n-1) 
END IF 
END SUB 


In diesem Beispiel wird die Fakultät der übergebenen Zahl be- 


rechnet. Das Beispiel ist gleichzeitig eine benutzerdefinierte Funk- 
tion (also eine Prozedur), die einen Wert zurückliefert. 
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Wie Sie in der Funktion sehen, wird sie von sich selber aufgeru- 
fen (Zeile 5), bis »n« kleiner oder gleich 1 wird. Es kann durchaus 
vorkommen, daß sich diese Funktion mehrmals ineinanderge- 
schachtelt aufruft, und auf diese Weise praktisch in sich selbst im- 
mer eine Ebene tiefer steigt. 

Um die Daten einer Rechenebene nicht zu verlieren, werden die- 
se aufdem Stack abgelegt. Aus diesem Grund ist darauf zu achten, 
daß der Stack nicht zu klein ist. 

Einen Nachteil hat aber auch die Rekursion. Da die Zwischen- 
werte bis zum Verlassen der Funktion immer wieder auf dem Stack 
abgelegt werden müssen, verlangsamt sich die Arbeitsgeschwin- 
digkeit. Rekursion sollte also nur dann verwendet werden, wenn 
ein anderer Lösungsweg zu komplex wäre. Vieles läßt sich nämlich 
auch mit einer FOR...NEXT-Schleife lösen. 

Dies waren die wichtigsten zusätzlichen Befehle des HiSoft- 
Basic. Natürlich müssen Sie bedenken, daß der erweiterte Befehls- 
vorrat vom Amiga-Basic-Interpreter nicht akzeptiert wird. Sie kön- 
nen solche Programme also nur in compilierter Form ablaufen las- 
sen. 

Besonders bei der Programmentwicklung ist es aber oft wün- 
schenswert, die Auswirkungen einer Veränderung sofort sichtbar 
zu machen, Auch wenn das interpretierte Basic wesentlich langsa- 


OMPILER 


mer abläuft, benötigt man während des Programmierens nicht im- 
mer den zeitraubenden Compiler-Durchlauf. 

Es ist sinnvoll, ein Programm zunächst vollständig mit dem Inter- 
preter zu erstellen und erst nach der Fertigstellung zu compilieren. 

‚Sicher konnte in diesem Artikel nicht jedes Problem erschöpfend 
behandelt werden. Sie sind jedoch in der Lage, Ihre Programme 
jetzt so umzuschreiben, daß sie sich compilieren lassen. Der dar- 
aus resultierende Geschwindigkeitszuwachs ist sehr beachtlich. 

Zum Schluß noch ein kleiner Tip: Wenn Sie ein Programm sorg- 
fältig getestet und keinen Laufzeitfehler mehr gefunden haben, 
können viele Laufzeitkontrollen (wie Variablenüberprüfung, Stack- 
check, Abbruch-Test, Überlauf etc.) abgeschaltet werden. Dies 
bringt neben einer weiteren Erhöhung der Arbeitsgeschwindigkeit 
einen kürzeren Code. Wenn später dennoch Fehler auftreten, wird 
das Programm in den meisten Fällen mit einer ordnungsgemäßen 
Fehlermeldung beendet. 

Anhand der Fehlernummer ist es dann möglich, die Ural 
herauszufinden. 


Bezugsquelle des HiSoft-Basic-Compllers: Markt& Technik Verlag AG, Hans-Pinsel-Straße 2,8018 
Haar bei München, Bestell-Nr. 54127, 179 Mark. 


Das Lager ist ge- 
spalten. Die einen 
schwören auf GFA- 
Basic, die anderen 
belächeln es. Was 
ist dran an der Pro- 
grammiersprache? 
Lohnt sich der Kauf? 


Von Thomas Ströter 


uf dem Atari hatte sich 
die strukturierte Pro- 
grammiersprache»GFA- 


Basic« sehr schnell durchge- 
setzt, Über ein Jahr später eta- 
blierte sie sich auch auf dem 
Amiga. Bei der Amiga-Version 
gab es anfangs einige »Kinder- 


krankheiten«, die viele Pro- 
grammierer abschreckten. 
Nachdem der langersehnte 


Compiler zum GFA-Basic er- 
schienen ist, hat GFA-Basic gu- 
te Chancen, auch auf dem Ami- 
ga zum Standard zu werden. 

Was ist das Besondere an 
diesern Basic-Dialekt? Das Ent- 
wicklungssystem besteht zum 
einen aus einem kombinierten 
Interpreter und Editor, mit dem 
die Programme erstellt und ge- 
testet werden - zum anderen 
aus dem Compiler, der das ge- 
testete Programm in ein direkt 
vom Computer ausführbares, 
sehr schnelles Programm um- 
wandelt. Der Interpreter wird 
nach dem Compilieren zum Ab- 
lauf des Programms nicht mehr 
benötigt. 

Zusätzlich wird zum Interpre- 
ter der Version 30 ein Run- 
Only-Modul mitgeliefert, das 


GFA-Basic 3.0 für den Amiga 


DER BEFEHLS- 


RIESE 


kopiert werden darf. Mit diesen 
Modul können Programme wie 
im Interpreter gestartet, aber 
nicht editiert werden. 

Als besonders gelungen ist 
der Editor zu bezeichnen. Er ar- 
beitet auf einem eigenen, ein- 
farbigen Screen, was Verzöge- 
rungen durch den teilweise 
recht langwierigen Fensterauf- 
bau vermeidet. Unter der Kopf- 
zeile des Editor-Screen befin- 
den sich zwei Menüleisten mit 
jeweils zehn Einträgen, die ent- 
weder mit der Maus oder über 
die Funktionstasten angewählt 
werden. 

Über diese Menüleisten las- 
sen sich die Hauptfunktionen 
wie LOAD, SAVE, diverse 
Block- und Suchoperationen 
schnellaufrufen. Zusätzlich läßt 
sich der Editor-Screen noch in 
den Interlace-Modus schalten, 
was die Anzahl der darstellba- 
ren Zeilen verdoppelt. 

Rechts oben in der Menülei- 
ste befindet sich eine Echtzeit- 
uhr, die bequem über Maus und 
Tastatur gestellt werden kann. 
Darunter ist die Zeilenanzeige 
mit der aktuellen Zeilennum- 
mer des Cursors. In diese An- 
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zeige läßtsich auch eine Zeilen- 
nummer eingeben, die dann 
vom Cursor angesprungen wird. 

Der Editor unterstützt die 
strukturierte Programmierung. 
Eine Spezialität ist die struktu- 
rierte Darstellung des Program- 
mes im Editor. Der Inhalt einer 
Schleife (der Schleifenkörper) 
wird automatisch bis zum 
Schleifenende um einige Zei- 
chen nach rechts eingerückt. 
Das gleiche gilt für die Verzwei- 
gungsbefehle IF ELSE ENDIF 
und SELECT CASE. Diese Dar- 
stellungsweise trägt wesentlich 
zur besseren Lesbarkeit eines 
Programmes bei. Dem Pro- 


Strukturiertes 
Programmieren 


grammierer wird auf diese Wei- 
se einiges an »Schönschreibar- 
beit« abgenommen; zusätzlich 
spart es Speicherplatz. 

Die Strukturierung hat je- 
doch auch seinen Preis: Der 
GFA-Basic-Editor erlaubt nur 
einen Befehl pro Zeile. Diese Ei- 
genart zieht das Programmli- 
sting gewaltig in die Länge, 


trägt aber zu einer besseren 
Lesbarkeit bei. 

Etwas ärgerlich wird es je- 
doch, wenn mehrere Variablen 
initialisiert werden sollen. Hier 
wünscht man sich doch die 
Möglichkeit, mehrere Befehle 
in eine Zeile zu schreiben. 

Die enormen Geschwindig- 
keiten von Interpreter und Edi- 
tor machen aber vieles wieder 
wett. Die Scrollgeschwindigkeit 
ist sehr hoch. Auch bei einer 


‚niedrigen Keyrepeat-Rate (Ta- 


stenwiederholung) läuft das 
Scrolling nicht nach. 

Über die Tastatur lassen sich 
verschiedene Marken im Edi- 
tor-Text setzen, die dann per Ta- 
stendruck angesprungen wer- 
den können. An diesen Beson- 
derheiten erkennt man, daß der 
Editor für alle entwickelt wurde, 
die viel programmieren und 
schnell mit der Tastatur umge- 
hen können. 

Eine weitere Besonderheit 
des Editors ist das sog. »Fol- 
ding« von Unterprogrammen. 
Alle Unterprogramme werden 
bei GFA-Basic in Prozeduren 
abgelegt, die in der Kopfzeile 
mit dem Schlüsselwort PRO- 
CEDURE beginnen und mit 
RETURN enden. Bewegt man 
den Cursor auf die Kopfzeile, so 
kann der gesamte Inhalt der 
Prozedur »eingeklappt« werden 
(man sieht nur noch die Kopf- 
zeile mit einem »größer-als- 
Zeichen«). Beim Programmie- 
ren ist das Folding eine große 
Hilfe. Sind beispielsweise alle 


Prozeduren zusammenge- 
klappt, so überblickt man an- 
hand der Prozedurnamen 


schnell die grobe Struktur des 
Programmes. Soll eine Proze- 
dur genauer betrachtet oder 
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editiert werden, wird sie einfach 
aufgeklappt. 

Dieser Klapp-Funktion sind 
jedoch Grenzen gesetzt. So 
lassen sich in der Version 30 
des Interpreters Funktionen 
nicht klappen (soll sich in der 
Version 3,5 ändern). Auch ist es 
in GFA-Basic nicht vorgesehen, 
Prozeduren innerhalb von Pro- 
zeduren zu definieren, wodurch 
eine noch höhere Modularisie- 
rung möglich wäre. 
Editierhilfen 

Besonders Anfängern, aber 
auch fortgeschrittenen Pro- 
grammierern kommt die Syn- 
taxüberprüfung während der 
Eingabe zugute. Eine Zeile wird 
nur übernommen, wenn Sie 
syntaktisch korrekt ist - also die 
Schreibweise richtig ist. Der 
Editor gibt hierzu noch einige 
Hilfestellungen, indem er z.B. 
fehlende Anführungszeichen 
oder Semikolons hinzufügt. 
Ferner steht ferner für fast je- 
den Befehl eine Abkürzung zur 
Verfügung. 

Eine zeitraubende Fehlersu- 
che ist häufig nötig, wenn ein 
Variablenname falsch eingege- 
ben wurde. Mit der optionalen 
»New Names«-Funktion kann 
man sich dies bequem erspa- 
ren. Ist die Funktion »New Na- 
mes« aktiviert, erscheint bei je- 
der Eingabe eines neuen Funk- 
tions-, Variablen- oder Proze- 
durnamens ein Requester, der 
für die Übernahme des neuen 
Namens bestätigt werden muß. 
Zusätzlich wird vor jedem Start 
des Programmes dessen 
Struktur überprüft. Ist sie nicht 
korrekt, das wäre z.B. bei einer 
nicht geschlossenen FOR 
NEXT-Schleife der Fall, so wird 
das Programm nicht ausgeführt 
und eine entsprechende Feh- 
lermeldung erscheint unter den 
Menüzeilen des Editors. 

Neben dem Editiermodus 
gibt es noch den Direktmodus. 
In ihm können Basic-Befehle 
eingegeben und direkt ausge- 
führt werden. Das ist z.B. not- 
wendig, um Variablenwerte 
nach einem Programmabbruch 
abzufragen oder um kleine Zwi- 
schenrechnungen durchzufüh- 
ren, falls gerade kein Taschen- 
rechner zur Hand ist. 

Die Programmiersprache 

Auf den ersten Blick denkt 
man, ein in Pascal geschriebe- 
nes Programm vor sich zu ha- 
ben. Zeilennummern sind bei- 
spielsweise ebenfalls überflüs- 
sig geworden. In der Tat hat 
GFA-Basic einige Anleihen bei 
Pascal gemacht, dabei jedoch 
den Basic-Befehlssatz beibe- 
halten. So ist es kein Wunder, 
daß GFA-Basic 3.0 über 350 


Basic-Befehle beinhaltet, die 
kaum noch Wünsche offenlas- 
sen. Aber keine Angst, man 
muß keine komplett neue Spra- 
che erlernen, um in GFA-Basic 
zu programmieren. Man kann 
leicht auf vorher erworbene 
Basic- oder Pascal-Kenntnisse 
aufbauen. 
Schleifen und Verzweigungen 
Ein wesentliches Merkmal 
des strukturierten Basics ist, 
auf die GOTO-Befehle zu ver- 
zichtet. An deren Stelle treten 
Schleifen und Verzweigungs- 
befehle, die in GFA-Basic reich- 


werden können, ohne daß Kolli- 
sionen mit Variablennamen aus 
anderen Unterprogrammen be- 
fürchtet werden müssen. Bei 
der Übergabe von Variablen an 
Prozeduren oder Funktionen 
sind sowohl die bloße Überga- 
be des Wertes (call by value) als 
auch die Übergabe der Varia- 
blen selbst (call by reference) 
möglich. 

Das alles sind Leistungs- 
merkmale einer hoch ent- 
wickelten Sprache, die das Pro- 
grammieren wesentlich erleich- 
tern. Neben ON GOSUB kennt 
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Es wird zwischen Rechnungen mit Fließkommazahlen 
(Float) und Ganzzahlen (Integer) unterschieden. 


lich vertreten sind. So existieren 
zum einen die bekannten ab- 
weisenden FOR NEXT- und 
WHILE WEND-Schleifen, zum 
anderen die nicht abweisende 
REPEAT UNTIL-Schleife. Zu- 
sätzlich existiert die DO LOOP- 
Schleife, wobei jeweils nach 
den Schlüsselwörtern DO und 
LOOP die Bedingungen für 
UNTIL oder WHILE stehen kön- 
nen. Letztendlich kann mit der 
EXIT IF- Bedingung der Schlei- 
fenkörper an jeder beliebigen 
Stelle verlassen werden. Ein- 
stiegs- und Abbruchbedingung 
einer Schleife sind damit voll- 
kommen frei gestaltbar. 

Zur strukturierten Verzwei- 
gung stehen neben den IF EL- 
SE ENDIF- und ELSE IF-Kon- 
strukten auch das von Pascal 
her bekannte SELECT CASE 
zur Verfügung. Hierbei wurde 
wie bei den Schleifenbefehlen 
»in die vollen: gegriffen«. Als 
Auswahlkriterien dürfen neben 
Integer- Zahlen auch bis zu vier 
Zeichen lange Strings verwen- 
det werden. Für die CASE-Be- 
dingung kann neben einem 
oder mehreren Werten ein Be- 
reich angegeben werden, bei 
dem verzweigt werden soll. Bei 
erfüllter CASE-Bedingung be- 
wirkt CONT eine Fortsetzung 
der Analyse des Auswahlkriteri- 
ums, ansonsten kann auch eine 
Defaultreaktion bestimmt wer- 
den. Prozeduren und Funktio- 
nen haben optional lokale Va- 
riablen, wodurch die Unterpro- 
gramme modular aufgebaut 
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GFA-Basic noch zwei vom Ti- 
mer abhängige Verzweigungs- 
befehle. So kann nach einer 
festgelegten Zeit oder nach ei- 
nem bestimmten Intervall auto- 
matisch in eine Prozedur ver- 
zweigt werden. Außerdem gibt 
es die Möglichkeit, bei einem 
aufgetretenen Fehler oder bei 
Programmabbruch in eine be- 
liebige Prozedur zu verzwei- 
gen, in welcher der Speicher 
wieder freigegeben, oder der 
Fehler näher analysiert werden 
kann. Die automatische Fehler- 
verzweigung ist besonders 
wichtig, wenn Fehler vom Be- 
nutzer (wie Division durch Null) 
nicht zum Programmabbruch 
führen sollen. 


Flexible Fehler- 
suche 


Sehr flexibel sind die Debug- 
ging-Möglichkeiten des Inter- 
preters. Bei umfangreichen 
Programmen ist es oft kompli- 
ziert und zeitraubend, den Feh- 
ler anhand des Programmli- 
stings zu finden. Hier hilft die 
Ausgabe der aktuell abgearbei- 
teten Befehle auf dem Bild- 
schirm durch TRON. Dieser 
Befehl kann an beliebiger Stelle 
aktiviert und inaktiviert werden. 
Die Ausgabe läßt sich auch auf 
den Drucker umlenken, wo der 
Programmablauf dann doku- 
mentiert wird. Zusätzlich kann 
eine Prozedur angegeben wer- 
den, in die der Interpreter nach 
jedem Befehl verzweigt. In ei- 


ner String-Variablen steht der 
Befehl, der als nächster abge- 
arbeitet wird. Damit können in- 
nerhalb der Prozedur gezielt 
einzelne Variablen überprüft 
werden, und erst bei Bereichs- 
überschreitungen wird gegebe- 
nenfalls die fehlerhafte Zeile 
ausgegeben. 

Naneblentypen und Operato- 


En GFA-Basic 3.0 gibt es 
sechs verschiedene Variablen- 
typen, die auch in mehrdimen- 
sionalen Arrays (Feldern) ver- 
waltet werden können. Neben 
Strings, Fließkommazahlen 
und Langwort-Integerzahlen 
existieren die Variablentypen 
Word, Byte und Boolean. Zur 
Fließkommadarstellung ge- 
braucht GFA-Basic ein eigenes 
Format, das wesentlich schnel- 
ler arbeitet als das des Amiga- 
Betriebssystems. Dennoch 
werden mathematische Copro- 
zessoren nicht automatisch un- 
terstützt. 

Die zahlreichen Integerda- 
tentypen lassen bereits erah- 
nen, daß GFA-Basic noch eine 
weitere interessante Eigen- 
schaft hat: Integerarithmetik 
wird voll unterstützt. Dadurch 
entfällt die Umwandlung vom 
Integer- ins Fließkommaformat 
und zurück, was viel Rechen- 
zeit spart. Das kommt zwar im 
Interpreter noch nicht stark zum 
Tragen, aber spätestens im 
compilierten Programm wird 
der Ablauf merklich beschleu- 
nigt. 

Neben den Operanden ADD, 
SUB, MUL, DIV und MOD und 
denen zur Inkrementierung und 
Dekrementierung eines Wertes 
stehen auch zahlreiche Befehle 
für Bitmanipulation und Abfra- 
ge zur Verfügung. Mit ihnen 
können einzelne Bits gesetzt, 
gelöscht, invertiert oder gete- 
stet werden. Ferner können die 
Bits innerhalb einer Integerzahl 
beliebig verschoben oder ro- 
tiert werden. 

Strings kommen in GFA-Ba- 
sic auch nicht zu kurz. Sie kön- 
nen eine Länge von bis zu 
32767 Zeichen haben. Durch 
eine clevere Verwaltung ist die 
‚Arbeit mit Strings schnell. Un- 
ter den zahlreichen Befehlen 
zur String-Erzeugung und -Ma- 
nipulation sind besonders die 
Sortierbefehle QSORT und 
SSORT hervorzuheben, die 
nach dem Quicksort- bzw. 
Shellsort-Verfahren arbeiten. 
Hierbei besteht die Wahl zwi- 
schen aufwärts- und abwärts- 
orientierter Sortierung. Zusätz- 
lich kann ein weiteres Integer- 
Array mitsortiert werden. Bei 
Stringarrays besteht die Mög- 


AMIGA-SONDERHEFT 10 


lichkeit, eine Tabelle mit ASCII- 
Werten anzugeben, nach de- 
nen sortiert werden soll. 
Sound und Grafik 

Für die Sounderzeugung ste- 
hen die Befehle SOUND, WA- 
VE, SOUND WAIT und SOUND 
RESUME für alle vier Sound- 
kanäle des Amigas zur Verfü- 
gung. Zusätzlich ist es möglich, 
über vier Zeiger die Anzahl der 
noch zu spielenden Töne zu er- 
mitteln. Der mit den Soundbe- 
fehlen erzeugte Klang wird den 
Leistungsfähigkeiten des Ami- 
gas allerdings nicht gerecht. 

Die Grafikfähigkeiten ma- 
chen den Amiga für viele be- 
sonders interessant. Hier bietet 
auch das GFA-Basic einiges. 
Alle Auflösungen des Amigas 
werden unterstützt. So können 
Screens im Hold-and-Modify- 
Modus (mit 4096 Farben) wie 
auch im EHB-Modus geöffnet 
werden. Grafikausschnitte wer- 
den mit GET in einen String ko- 
piert, der dann mit PUT die Gra- 
fik an eine andere Position 
setzt. Ganze Screens können 
mit SGET und einem Stringar- 
ray kopiert werden. 

Neben den 36 vordefinierten 
Füllmustern lassen sich weitere 
Füllmuster in einem String frei 
definieren. Beim Gestalten mit 
Linie hat man ebenfalls die Aus- 
wahl zwischen sieben verschie- 
denen Linienmustern. 

Neben Befehlen für Kreise, 
Ellipsen, Recht- und beliebigen 
Vielecken gibt es einen komfor- 
tablen DRAW-Befehl, mit dem 
Grafiken wie in der Program- 
miersprache LOGO als Schild- 
krötengrafik erzeugt werden 
können. Dabei besteht zusätz- 
lich die Möglichkeit, x- und y- 
Achse zu skalieren. 
Animation 

Wer Bewegung in sein Pro- 
gramm bringen will, kann in 
GFA-Basic auf Bobs und Spri- 
tes zurückgreifen. Die Bobs be- 
wegen sich wesentlich flüssiger 
als im Amiga-Basic, dürften für 
schnelle Actionspiele aber im- 
mer noch zu langsam sein. 
Auch flimmern sie bei Bewe- 
gungen leicht, da nur ein 
Screen verwendet wird. Wer- 
den hingegen die Hardware- 
sprites verwendet, hat man da- 
mit keine Probleme. Die Defini- 
tion der Spriteform erfolgt wie- 
der über einen String. 

Für den Mauszeiger existiert 
der Befehl DEFMOUSE. Mit 
ihm kann jedem Fenster ein ei- 
gener Mauszeiger zugewiesen 
werden. Sieben Mauszeiger 
sind dabei schon vordefiniert. 
Windows 

Fenster lassen sich in GFA- 
Basic frei gestalten. Flags für 


die Systemgadgets und Messa- 
ges können beim Öffnen des 
Fensters mit angegegeben wer- 
den. Messages (Informatio- 
nen), die das Betriebssystem 
vom Fenster sendet, können 
ebenfalls im Basic ausgewertet 
werden. Dazu dienen die Be- 
fehle ON MENU, ON MENU 
KEY, ON MENU BUTTON und 
ON MESSAGE GOSUR. Mit Ih- 
nen wird eine Prozedur festge- 
legt, in die bei einem Ereignis 
verzweigt wird (z.B. bei der Aus- 
wahl eines Menüpunktes). In 
diesem Unterprogramm kann 
anhand der Menü-Variablen er- 
mittelt werden, in welchem Fen- 
ster welches Ereignis aufgetre- 
ten ist. 

Pull-Down-Menüs können 
schnell über ein Stringarray de- 
finiert und nachträglich mit 
Häkchen oder Kasten versehen 
werden. 

Es ist auch möglich, die Zu- 
ordnung einer Taste so zu defi- 
nieren, daß sie beispielsweise 
einen Menüpunkt aktiviert, 
wenn sie zusammen mit der 
rechten Amiga-Taste gedrückt 
wird. Fenster können nachträg- 
lich (programmgesteuert) neu 
positioniert oder in ihrer Größe 
verändert werden. Ferner läßt 
sich jedem Fenster ein eigener 
Screentitel zuweisen. 

Zusätzlich bietet GFA-Basic 
noch zwei Befehle, die das Pro- 
grammieren wesentlich erleich- 
tern. »Alertbox« ist ein Auswahl- 
fenster mit bis zu drei beschrift- 
baren Auswahlfeldern, die per 
Maus oder Return-Taste betä- 
tigt werden. Die Nummer des 
ausgewählten Feldes erhält 
man dann in einer Variablen zu- 
rück. Ferner ist in GFA-Basic ei- 
ne praktische »Fileselectbox« 
implementiert, die vom Basic- 
Programm aus angesprochen 
werden kann. Durch diese läßt 
sich eine Datei mit der Maus 
auswählen. Die Beschriftung 
der Fileselectbox ist frei be- 
stimmbar und auch der Zu- 
griffspfad kann vorgegeben 
werden. Den ausgewählten 
Pfad erhält man in einer String- 
variablen zurück. Bemerkens- 
wert ist auch der INLINE-Be- 
fehl. Er dient dazu, innerhalb 
des Basic-Quelltextes Speicher 
zu reservieren, der mit dem 
Programm gespeichert und 
wieder geladen wird. Hier kön- 
nen beispielsweise Grafik-oder 
Sounddaten abgelegt werden, 
die so nicht jedes mal wieder 
von Diskette nachgeladen wer- 
den müssen. Ideal ist der IN- 
LINE-Befehl auch für das Im- 
plementieren von Assembler- 
Programmen. Beim Aufruf ei- 
nes Assembler- oder C-Pro- 
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grammes können Parameter 
über den Stack oder mittels ei- 
nes Integerarrays über die Da- 
ten- und Adreßregister überge- 
ben werden. 
Zugriff auf Libraries 

Neben den etwa 350 Basic- 
Befehlen hat man in GFA-Basic 
auch vollen Zugriff auf die 
Betriebssystem-Routinen. Die 
Funktionen der wichtigsten Li- 
braries sind innerhalb von GFA- 
Basic direkt über ihre Funk- 
tionsnamen aufrufbar. Für die 
Funktionen der EXEC-, Intui- 
tion-, Graphics-, Layers-, Disk- 
font- und Workbench-Library 
müssen keine BMAP-Dateien 
nachgeladen werden. Alle Be- 
triebssystem-Routinen werden 
vom Editor in Groß-/Klein- 
schrift, gemäß der Anwender- 
dokumentation, dargestellt. Sie 
unterscheiden sich dadurch gut 
von den nur klein geschriebe- 
nen Variablen- und Prozedur- 
namen sowie den groß ge- 
schriebenen Basic-Namen. 


Wie kompatibel 
ist GFA-Basic? 


Wie schnell ist GFA-Basic ge- 
genüber dem Amiga-Basic? 
Vergleicht man die Laufzeiten 
des GFA- mit denen des Amiga- 
Interpreters (siehe Tabelle 1), so 
könnte man glauben, compilier- 
tes Amiga-Basic vor sich zu ha- 
ben. Im Schnitt ist der GFA- 
Basic-Interpreter gut doppelt so 
schnell wie Amiga-Basic. Auch 
Programmierkomfort und Wort- 
schatz liegen weit über dem 
des mitgelieferten Basic. 

Was liegt also näher, als ein 
in Amiga-Basic erstelltes Pro- 
gramm in GFA-Basic zu über- 
nehmen? Da macht die man- 
gelnde Kompatibilität leider ei- 
nen Strich durch die Rech- 
nung, obwohl der Großteil der 
‚Amiga-Basic-Befehle kompati- 
belzu denen des GFA-Basic ist. 
GFA-Basic ist jedoch wesent- 
lich strukturierter als Amiga- 
Basic, was schon mit dem Ver- 
bot für »mehrere Befehle in ei- 
ner Zeile« anfängt. So ist es 
auch nicht möglich, in GFA-Ba- 
sic mit GOTO aus einer Schleife 
‚oder von einer Prozedur in eine 
andere zu springen. Auch exi- 
stiert kein ON GOTO-Befehl 
und die Kennzeichnung der In- 
tegervariablen ist unterschied- 
lich. 

Ferner sind in Amiga-Basic 
auch andere IF THEN-Kon- 
struktionen möglich als in GFA- 
Basic, was aus dem eisernen 
Gebot »Du darfst nur einen Be- 
fehl pro Zeile benutzen« resul- 
tiert. 


OMPILER 


GFA-Systemtechnik ist aller- 
dings mit der Entwicklung ei- 
nes Konvertierungsprogramms 
befaßt, das ein Umschreiben 
der Programme abnehmen 
soll. Programme, die in GFA- 
Basic 30 auf dem Atari pro- 
grammiert wurden, können pro- 
blemlos übernommen werden, 
sofern diese keine Betriebssy- 
stem-Routinen oder andere Ei- 
genschaften des Ataris nutzen. 
Der Compiler 

Der Compiler zu GFA-Basic 
3.0 besteht aus zwei getrennten 
Programmen: dem Compiler 
»GFA_BCOM«, der ein Object- 
File erzeugt, welches mit dem 
Linker »GL« gelinkt wird. Der 
Compilierungsvorgang kann 
über das CLI oder über die mit- 
gelieferte Shell gesteuert wer- 
den. Der Source-Code der 
‚Shell ist in GFA-Basic geschrie- 
ben und befindet sich ebenfalls 
auf der Compiler-Diskette. So 
kann die Shell den eigenen An- 
sprüchen schnell angepaßt 
werden. Das Ergebnis ist ein 
sehr kompakter Code, da der 
Linker nur die Funktionen ein- 
bindet, die auch wirklich vom 
Programm benötigt werden. 
Bei einem komplexen Pro- 
gramm mit ca. 50 KByte langen 
Token-Code wird ein etwa 80 
KByte langes compiliertes Pro- 
gramm erzeugt. 

Zusätzlich besteht beim Lin- 
ker die Möglichkeit, C- oder As- 
semblerprogramme einzubin- 
den, die vom Interpreter aufge- 
rufen werden. Des weiteren gibt 
es viele Compileroptionen, die 
den Code weiter komprimieren 
und beschleunigen. 


Fazit 


Insgesamt kann GFA-Basic 
als ausgereiftes Entwicklungs- 
system bezeichnet werden, das 
dem Amiga-Basic weit überle- 
gen ist. Der Zugriff auf die Be- 
triebssystemroutinen, die hohe 
Geschwindigkeit, der große 
Sprachschatz und der Bedie- 
nungskomfort machen GFA- 
Basic zu einer ernsthaften Al- 
ternative zu anderen Program- 
miersprachen auf dem Amiga. 

Besonders geeignet ist GFA- 
Basic für Computerbesitzer, die 
viel Programmieren. Da man 
sich einen enormen Befehls- 
schatz neu aneignen muß, soll- 
tejeder qutüberlegen, ob er bei 
Basic bleiben oder eine andere 
Programmiersprache erlernen 
will. kn 
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Subroutinen für Basic-Programmierer 


Kleine Basic-Bibliothek 


Von der Mausabfrage bis zur extra schnel- 
len Textausgabe haben wir eine Reihe 
nützlicher Unterroutinen für Sie zusam- 
mengestellt. Die neuen Routinen zeigen 
auch, wie Profis programmieren. 


Von Andreas Regul 


schreiben. Häufig ist dies aber mit einem wesentlich höhe- 
ren Programmieraufwand verbunden und nur durch Ver- 
wenden der Betriebssystem-Routinen möglich. 

Um diese Arbeit zu erleichtern, können Sie die Subroutinen aus 
der folgenden Sammlung in Ihren eigenen Programmen verwen- 
den. Damit erhalten Sie ein einfaches Hilfsmittel, um Ihre Program- 
me leichter bedienbar und gleichzeitig schneller zu machen. Die 
Subroutinen machen intensiven Gebrauch von Betriebssystem- 
Routinen; da diese jedoch in die Unterprogramme eingebunden 
sind, benötigen Sie nahezu keine Kenntnisse von deren Verwen- 
dung. Beider Übergabe von Parametern, die durch ein Komma ge- 
trennt sind, müssen Sie beachten, daß hinter dem Komma keine 
Leerstelle eingegeben werden darf. 

Tippen Sie zunächst Listing 1 ab, da es von allen Unterroutinen 
benötigt wird. Sie können selbstverständlich Farbwerte und auch 
die Fenstergröße verändern. Unbedingt erhalten bleiben muß je- 
doch die Zuweisung zur Variablen »rastport&«, da der Aufruf einer 
der Routinen sonst unweigerlich zum Absturz führen würde. 


"- (Listing 1)--- 


A uch in Amiga-Basic lassen sich professionelle Programme 


' Desktop V1.O 


von Andreas Regul (ec) 12/1989 


DIM SHARED day$(7) ‚grapnic(5000) ‚rastport& 


FOR 


NEXT 


Hann Einbinden von Systenroutinen ----- 


LIBRARY 
LIBRARY 


DEGLARE % LIBRARY 


NDOR 2,,(0,0)-(631,242),0,1 
WINDOR CLOSE 1 


PALETTE 4,1, .85,.85 
END 


Nun zu den einzelnen Routinen: 
WriteLine xpos,ypos,txt$ 
(Listing 2) 
Eine beliebige Zeichenkette wird an der Position »xpos,ypos« auf 
dem Bildschirm ausgegeben. Die Position wird im Gegensatz zum 
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LOCATE-Befehl an die Grafikkoordinate gesetzt, so daß Sie einen 
Text pixelgenau ausgeben können. Zusätzlich bietet diese Routine 
den Vorteil, daß die Ausgabe im Vergleich zum PRINT-Befehl bis 
zu 10mal schneller erfolgt. Ein Beispiel: 

WriteLine 100,50, "Text mit WriteLine” 

Die Werte müssen nicht - wie im Beispiel - als Absolutwerte an- 
gegeben werden, Es sind auch Variablen zugelassen. Dies gilt für 
alle folgenden Routinen ebenso. 


no Textzeile ausgeben (L. 2) --—-- 


xpos,ypos,txt$) STATIG 
(rastport&, xpos,ypos) 
(rastport&,SADD(txtS) ‚LEN(txt#)) 


(Listing 3) 
Der Grafikcursor wird an die angegebene Position gesetzt. 


DrawLine xpos1,ypos1,xpos2,ypos2 
(Listing 4) 

Von der Koordinate »xpos1,yposi« wird eine Linie zur Position 
»Xpos2,ypos2« gezogen. Diese Routine weist die Besonderheit auf, 
daß zwei senkrechte Linien hintereinander gezogen werden, wenn 
die beiden angegebenen x-Werte gleich sind. Das hat folgenden 
Vorteil: Auch bei 640 Spalten erscheinen senkrechte und waage- 
rechte Linien gleich breit. Sind die Werte von x jedoch unterschied- 
lich, wird wie üblich nur eine einzelne Linie gezogen. 


(xpos1,ypos1,xpos2,ypos2) 


CALL Drav& (rastports,x 
ND IF 
ED sun 


Rectangle xpos,ypos,length,height,colour 
(Listing 5) 

Ein Rechteck mit der angegebenen Farbe »colour« wird gezeich- 
net. Die linke obere Ecke wird durch »xpos,ypos« angegeben, die 
Länge durch »length« und die Höhe durch »height«. 


De Rechteck seichnen 


Sur), STATIC 


tport&,xpos,ypos,xpos-+l. 
at-1) 


1,ypos+ 


Box xpos,ypos,length,height,colour 
(Listing 6) 

Dieser Befehl hat die gleiche Wirkung wie »Rectangle«, jedoch 
wird das Rechteck durch eine Linie umrahmt. Die angegebenen 
Parameter haben die gleiche Bedeutung wie bei »Rectangle«. Die- 
se Subroutine benötigt Listing 4 und 5. 
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Kasten geichnen 


SUB Box (xpos,ypos,length,height, colour) STATIC 
xpos2=xpos+length-1 
ypos2=ypostheight-1 
Rectangle xpos,ypas,length,height,oolour 
COLOR 1 
DraxLine xpos,ypos, xpos,ypos2 
DravLine xpos,ypos,xpos2,ypos 
DrauLine xpog2-1,ypos,xpos2-1,ypos2 
DrauLine xpos,ypos2, xpos2,ypos2 
END SUB 


TextBox xpos,ypos,txt$,colour 
(Listing 7) 

In dem mit der Routine »Box« gezeichneten Kasten wird zusätz- 
lich eine Zeichenkette ausgegeben. Die Größe des Kastens richtet 
sich nach der Länge des Textes und muß daher nicht mehr angege- 
ben werden. Zusätzlich benötigt Listing: 2, 4, 5 und 6. 


Umenn- Kasten mit Text ausgeben (L, 7) ----- 


SUB TextBox (xpos,ypos,txt$,aolour) STATIC 
Box xpos, ypos, LEN(txt$)#8+20, 11, colour 
COLOR 1,colour 
WoiteLine xpos+10, ypos+d,txt# 

END SUB 


Button xpos,ypos,length,height,; cted 
(Listing 8) 

Mit diesem Befehl können Sie auf sehr einfache Weise einen 
Schalter (Boolean-Gadget) ausgeben. Durch eine geschickte Farb- 
wahl entsteht der Eindruck eines Tasters. Mit den Angaben 
»xpos,ypos« wird die Pixelposition, mit »length« und »height« die 
Länge und Höhe angegeben. Schließlich können Sie mit der Varia- 
blen »selected« noch bestimmen, ob der Schalter gedrückt oder 
nicht gedrückt erscheinen soll (1 = gedrückt, 0 = nicht gedrückt). 
Listing 4, 5, 9 und 10 werden zusätzlich benötigt. 


Nnannn Schalter geichnen (L. 8) ----- 


SUB Button (xpos,ypos,length,height,selected) STATIC 
Reotangle xpos,ypos,length,height,3 
IF seleoted THEN 
ButtonOn xpos,ypoa,length,height 
ELSE 
ButtonOff xpon,ypos, length,height 
END IF 

END SUB 
ButtonOn xpos,ypos,length,height 
(Listing 9) 

Mit diesem Befehl können Sie beispielsweise auf Mauseingaben 
reagieren und einen Schalter gedrückt darstellen lassen. Es müs- 
sen wiederum die Pixelposition, die Länge und Höhe angegeben 
werden. Zusätzlich benötigt wird Listing 4. 


Nanann Schalter einstellen (L. 9) ----- 


SUB ButtonOn (xpos,ypos,length,height) STATIC 

COLOR 1 

DravLine xpos,ypos,xpos,ypos+height-1 

DrawLine xpos,ypos,xpos+length-1,ypos 

COLOR & 

Drauliine xpos+2,ypos+height-1,xpos+length-2, ypostheight-1 
pos+length-2, ypos#+1,spos+length-2, ypos+height-1 


ButtonOff xpos,ypos,length,height 
(Listing 10) 

Dieser Befehl ist das Gegenstück zu ButtonOn. Ein Schalter wird 
ausgestellt. Es wird Listing 4 zusätzlich benötigt. 


" -un-- Schalter ausstellen (L. 10) - 


SUB Buttonoff (xpos,ypos,length,neight) STATIC 
COLOR 4 
DrauLine xpos,ypos,xpos,ypos+he: 
DrauLine xpos,ypos,xpos+length-1,ypos 
Cora: 
DraxLine xpos+2,ypos+height-1,xpos+length-2,ypos+neight-1 
DraxLine xpos+length-2,ypos+1,xpos+length-2,ypos+height-1 

END SUB 
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Suss 


TextButton xpos,ypos,txt$,selected 
(Listing 11) 

Diese Subroutine hat fast die gleiche Wirkung wie Button. Je- 
doch kann gleichzeitig ein Text (txt$) angegeben werden, der inner- 
halb dieses Schalters ausgegeben wird. Die Größe des Schalters 
wird aufgrund der Länge des Textes berechnet. Es sind also keine 
Angaben von Länge und Höhe nötig. 


Schalter mit Text ausgeben (L. 11) 


(»pos,ypos,txt$,seleoted) STATIC 
Button xpos,ypos,LEN(txt$)*8+20,11,seleoted 
LOR 1,3 

teLine xpos+10, ypos+8,txt$ 

suB 


ArrowUp/ArrowDown/ArrowLeft/ArrowRight xpos,ypos 
(Listing 12) 

Mit diesen Unterroutinen können Sie die für ein Schiebe-Gadget 
benötigten Pfeile ausgeben. Die angegebenen Parameter »xpos« 
und »ypos« bestimmen die Pixelposition. Zusätzlich benötigt wird 
Listing 4. 


Pfeil nach oben zeichnen (L. 12) - 


SUB ArrowUp (xpos,ypos) STATIO 
COLOR 1 
DrawLine xpos+4,ypos+2,xpos+4,ypoa+3 
DravLine xpos+4,ypou+2,xpos+14,ypos+2 
DravLine 08+2,pos+14,ypos+3 
DrawLine ‚ypO8+2,xpos+9,ypos+8 
END SUB 


Pfeil nach unten zeichnen 


SUB ArnouDown (xpos,ypos) STATIO 
COLOR 1 
DravLine xpon+4,ypos-2,xpos+4, ypon-3 
DravLine xpos+4 ‚ypos-2, xpos+i4,ypos-2 
DrawLine xpos+14, ypos-2,xpos+14,ypos-3 
DravLine xpos+9,ypos-2,xpos+9, ypoa-3 
END SUB 


Pfeil nach links zeichnen 


wieft (xpos,ypos) STATIC 


xpos+4,ypos+2,xpoa+7,ypos+2 
xpos+4 ,ypos+2,xpos+4,ypos+5 
xpos+4 ‚ypos+8,xpos+7,ypos+8 

DrawLine xpos+4,ypos+5,xpos+15,ypos+5 
END SUB 


! 00--- Pfeil nach rechts zeichnen = 


SUB. ArrowRig 
COLOR 1 
DrauLine xpos-4,ypos+2,xpos-6,ypos+2 
DravLine xpos-4,ypos+2,xpos-4,ypos48 
DravLine xpos-4,ypos+8,xpos-6, ypos+8 
DravLine xpos-4,ypos+3,xpos-14,ypos+5 

END SUB 


ht. (xpos,ypos) STATIC 


DrawMode mode 
(Listing 13) 

Der Amiga stellt verschiedene Zeichenmodi zur Verfügung, die 
von Basic aus jedoch nicht einstellbar sind. Mit diesem Befehl kön- 
nen Sie einen Zeichenmodus wählen. Die übergebene Variable 
»mode« kann dabei folgende Werte annehmen: 

1 Zeichen in der Vordergrundfarbe, der Hintergrund wird nicht 
verändert 

2 Füllt den Zeichenbereich in der Hintergrundfarbe auf (dieser 
Modus ist beim PRINT-Befehl eingestellt) 

4 Komplementiert die vorhandene Farbe 

8 Stellt die Zeichen/Grafik invertiert dar 


len (L, 13) -- 


— Zeichenmodus eins 


SUB DrauMode (modef) STATIC 
CALL SetDrlä& (rastportk,mode£) 
END SUB 
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Sohriftstil setzen (L. 138) 


SUB SoftStyle (style) STATIC 
mask$=SetSoftStyleg (rastportk,: 
END SUB 
SoftStyle style 
(Listing 13a) 

Sie können Schrift in verschiedenen Stilen darstellen. Auch dies 
war bisher über Basic-Befehle nicht möglich. Welchen Stil Siewäh- 
len, wird von dem Parameter »style« bestimmt. Er kann folgende 
Werte annehmen: 

O normal 

1 unterstrichen 

2 fett 

4 kursiv 

8 breit (nicht bei jeder Schriftart möglich) 

Um mehrere Schriftstile gleichzeitig einzustellen, müssen die 
Werte der gewünschten Stile addiert werden. 


UserWindow xpos,ypos,length,height,colour 
(Listing 14) 

Dieser Befehl gibt ein spezielles Fenster aus, das jedoch nicht in 
die Tabelle von Intuition eingebunden wird. Die hat einen enormen 
Geschwindigkeits-Vorteil. Wenn die Bildschirmdarstellung im Hin- 
tergrund wiederhergestellt werden soll, muß der entsprechende 
‚Ausschnitt zuerst mit dem GET-Befehl in einer Variablen gesichert 
und danach wieder ausgegeben werden. Benötigt werden ferner 
die Listings 4, 5 und 6. 


Nonenn Desktop-Fenster ausgeben (L. 14) ----- 


SUB UserWindow (xpos,ypos,length,height,colour) STATIC 
Box xpos,ypos, length, heii 
DrayLine xpos+2,ypos-1,xpos+length+1 
DrauLine xpos+length, ypos,xpos+lengt! 

END SUB 


s+helght-2 


Message xpos,ypos,txt$ 
(Listing 15) 

Dieser Befehl stellt eine sehr große Hilfe bei Ausgabe von Hin- 
weisen und Fehlern dar. Wie Sie an den wenigen Parametern erse- 
hen, sind lediglich die Position auf dem Bildschirm (xpos,ypos) und 
der 1 (txt$), der ausgegeben werden soll, notwendig. Ein Bei- 
spiel: 

Message 100,50, "Die ist eine Nachricht” 


Durch diesen Befehl erscheint an der Pixel-Position 100/50 ein 
Fenster, das den angegebenen Text enthält. Darunter befindet sich 
ein Schalter mit »Okay«, der mit der Maus angeklickt werden kann. 
Nach dem Anklicken verschwindet das Fenster und der Bildschirm- 
hintergrund wird wiederhergestellt. 

Um auch längere Texte ausgeben zu können, ist es möglich, den 
Text in mehrere Zeilen aufzuteilen. Hierzu wird jeweils an der ge- 
wünschten Stelle das »!«-Zeichen eingefügt. Beispiel: 


Message 100,50, "Dies ist eine lange | Nachricht 
als Beispiel | für 
den Trennstrich.” 


Durch diesen Befehl wird der angegebene Text in drei Zeilen un- 
terteilt. Natürlich erscheinen die Trennstriche im Ausgabefenster 
nicht, Die Größe des Fensters wird durch den angegebenen Text 
selbständig festgelegt, so daß hierzu keinerlei Angaben notwendig 
sind. Benötigt werden außerdem die Listings 2, 4, 9, 11, 14, 17 und 
19, 


SUB Message (xpos, 
SHARED 1engtl 
NessageQut xpos,Jpos,txt$ 
xpos2zxpostlength-1 
yROs2=ypos+height-1 
TextButton xpos2-62,ypos2-15, "Okay”,O 
choosenz0 
NouseDunay 
WEILE NOT choosen 

WELLE MOUSE(0)=0: END 
xmouse-M 
mouse-NOUSE(4) 
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;o8,txt$) STATIC 


IF xnouse>xpos2-63 AND xmouse<xpos2-6 AND ymouse> 


Ypos2-15 AND yaouse<ypos2-3 THEN choosene-1 
END 
ButtonOn xpos2-62,ypos2-15,52,11 
Nousebunay 
PUT (xpos,ypos-1) ‚graphic, PET 
zu sıB 
Requester xpos,ypos,txt$ 
(Listing 16) 


»Requester« hat nahezu die gleiche Funktion wie Message, je- 
doch wird nicht nur ein Schalter ausgegeben, sondern zwei - mit‘ 
den Beschriftungen »ja« und »nein«. Sie können auf diese Weise 
sehr einfach Abfragen konstruieren. Es gelten die gleichen Para- 
meterangaben wie bei Message. Nach dem Anklicken steht in der 
Variablen »answer« der Wert »1«, wenn »ja« angeklickt wurde und 
der Wert »O«, wenn »nein« gewählt wurde. Benötigt werden zusätz- 
lich die Listings 2, 4, 9, 11, 14, 17 und 19. 


Innen Frege ausgeben 


SUB Requester (xpos,ypos,txt$) STATIC 
SHARED length, height, answer 
MessageDut xpos,ypos,txt$ 
xpos2=xpos+length-1 
yposZeypos+heigt 
TextButton xpos2-122,3p082-15,” Ja ”,0 
TextButton xpos2-62,yp0s2-19, Nein”,O 
NouseDunay 
choosen=) 

LE NOT choosen 

MOUSE(0)=0:WEND 

xmouse=MOUSE(3) 

ymouse=NOLSE(4) 

IF yaouse>ypos2-15 AND ynouse<ypos2-3 THEN 
IF mmouse>xpos2-123 AND xmouse<xpos2-66 THEN 

answer=1:choos, 
IF xmouse>xpos2-63 AND mouse <xpos2-6 
answer=D:choos: 


END IP 

WEND 

2pos2=xpos2-answer#60-62 
ButtonOn xpos2,ypos2-15,52,11 


‚graphic, PSET 


MessageOut xpos,ypos,txt$ 
(Listing 17) 

Diese Routine wird von den beiden vorhergehenden benötigt, 
Sie öffnet ein Fenster und gibt die übergebene Zeichenkette in der 
beschriebenen Form aus. Benötigt werden außerdem die Listings 
2, 4,5, 6 und 14. 


un. Dosktop-Fenster oeffnen und Text 


ausgeben (L. 17) ---- 


SUB MessageDut (xpos,ypos,txt$) STATIO 

SHARED length,height 

startel 

lengthe15 

linesei 

WHILE INSTR(ste: 
opos=INSTR( 
IF opos-sta; 
starteopos+i 
Linesslines+l 

WEND 

IF LEN(txt$)-start+1> length THEN lengtheLEN(txt$)-stert+1 

lengthelengthn8+20 

heightelines14+22 

GET (xpos, ypos-1)-(xpos+length+1,ypos+height-1) ‚graphic 


Fur} 
3,71”) 
ıgth THEN lengthaopos-start 


YHILE INSTR(start,txt$, "1 ”) 
(pos=1NSTR(stert,txt$, 71”) 
WriteLine xpos+10,ypos2,MID$(txt$,start,cpos-start) 


ypos2=ypos2+14 
WEND: 
'riteLine xpos+10, ypos2,MIDS(txt3, start) 
aD suB 


AMIGA-SONDERHEFT 10 


Linelnput xpos,ypos,maxchars,xcur,txt$ 
918) 

\ Diese Subroutine stellt einen Zeileneditor zur Verfügung, mit 
dem einzelne Zeilen sehr einfach bearbeitet und verändert werden 
können. Die Parameter »xpos, ypos« geben die Pixelposition auf 
dem Bildschirm an. Mit »maxchars« wird die Anzahl der Zeichen 
bestimmt, die editiert werden dürfen, »xcur« ist die Cursorposition 
innerhalb des Textes und mit »txt$« wird die Zeichenvariable über- 
geben, die verändert werden sollen. Nach dem Verlassen der Rou- 
tine steht wiederum in txt$ der veränderte String. 

Eingegebene Zeichen werden in der Zeichenkette eingefügt, mit 
der Backspace-Taste wird das vorhergehende, mit der DEL-Taste 
das Zeichen unter dem Cursor gelöscht. Sie können mit den Cur- 
sortasten innerhalb des Textes vor- und zurückfahren. ENTER 
beendet die Eingabe. Der Cursor kann auch mit der linken Mausta- 
ste an eine Position gesetzt werden. Wird außerhalb des Strings 
angeklickt, hat dies die gleiche Wirkung wie ENTER. Hier ein Bei- 
spiel: 

txt$="Text zum Verändern” 
LineInput 100,50,30,1,txt$ 


In diesem Beispiel wird der Text »txt$« bearbeitet. Die Position ist 
mit 100/50 angegeben, die maximale Zeichenanzahl ist 30 und die 
anfängliche Cursorposition ist 1 (der Cursor steht auf dem ersten 
Zeichen des Strings). Es ist wichtig, daß an der angegebenen Posi- 
tion bereits ein vorgegebener Text steht und der Text wie im Beispiel 
in einer Variablen übergeben wird. Dies ist notwendig, da der ver- 
änderte Text wiederum in dieser Variablen steht. Benötigt werden 
zusätzlich die Listings 2 und 19. 

Zeichenkette eingeben (L. 18) --——- 


SUB LineInput (xpos,xpos,maxchars,xour,txt$) STATIC 
txt29=LEFTS(txt2$,maxchars) 
txt2ßetxt$+SPAOES(maxchers-LEN(txt$)) 
xpos2=xpos 
Ypos2=ypos 
WriteLine xpos, ypos, txt2$ 
CursorQut xpos+xoum8-8,ypos 
NouseDunny 
sancel2=0 
WHILE NOT cancel2 
keyse”" 

WHTLE MOUSE(O)=0 AND keys="" 
keySsINKEY$ 

WEND 

CursorOut xpos+xeurkB-8,ypos 

IF keyg<>"" THEN 

IF key$=CHR$(31) THEN 
IF xour>1 THEN xeur=xour-1 

BISEIF key$=CHR$(30) THEN 
IF xour<maxchars THEN xour=xour+1 

EISEIF key$=CHR$(13) THEN 
ance: 

ELSEIF key$=CHR$(127) THEN 
txt2$=LEFT$(tx62$,xeur-1)+MID$(txt28,xeums1)+" " 
COLOR 1, colour 
WoiteLine xpos,ypos,txt28 

BLSEIF key3=CHR$(8) THEN 
IF xour>1 THEN 

txt2$=LEFTS(txt28,xour-2)+MID$(txt2$,xcur)+” 
COLOR 1,colour 
WriteLine xpos,ypos,txt2$ 
zeursxeur-1 
END IF 

ELSE 

txt2$=LEFT$(txt2$,zour-1)+key$+HID$(txrt2$,xeur, 
maxchars-xeur) 

COLOR 1, colour 

WriteLine xpos,ypos,txt2$ 

IF xour<mnaxchars THEN xoursxou+l 


IF xpos2<xpos-4 OR xpos2>xpostnaxcherstä+k OR 
ypos2<ypos-6 OR ypos2>ypos+5 THEN 


xeur=INT((xpos2-xpos+4)/8) 
IF xcur<1 THEN xcur=1 ELSE IF xcur>maxchars 
xcur=maxchars 


AR SONBERMEET TED ON 


SuBs 


canoe12 THEN 
CursorOut zpos+zeur*B-8,ypos 
zw ır 


charsnaxchars 
shar>1 AND MID$(txt2$,char,1)=" " 
ar-ı 
van 
IF Lxt23=SPACES(LEN(txt2$)) THEN char-0 
txt$-LEFTS(txt2$,char) 
zw sıB 


! Cursor ausgeben —— 


SUB GursorOut (xpos,ypos) STATIC 
Drastiode 3 
Rectangle xpos,3pos-6,8,8,1 
Drastode 1 

END sus 


MouseDummy 
(Listing 19) 

Mit diesem Befehl werden unnötige Mauseingaben abgefangen. 
Er wird hauptsächlich von der vorhergehenden Funktion benötigt. 


! —- Naustastendruck abfangen (L. 19) ----- 


SUB MouseDunny STATIC 
WHILE MOUSE(0) <>0 


END SUB 
GetDate actualdate$ 
(Listing 20) 

Mit dieser Funktion erhalten Sie die Systemzeit. Zusätzlich wird 
der entsprechende Wochentag berechnet und vor das Datum ge- 
stellt. Diese Funktion arbeitet nur dann richtig, wenn Sie über eine 
batteriegepufferte Uhr verfügen oder zuvor im Preferences-Pro- 
gramm das aktuelle Datum eingestellt haben. Ansonsten wird ein 
falsches Datum zurückgegeben. Nach dem Aufruf steht in der Va- 
riablen »actualdate$« das Datum mit Wochentag in folgender Form: 

Sonntag, 10.12.1989 


" ——--— Wochentag berechnen (L. 20) ----- 


SUB GetDate (aotusldate$) STATIC 
es=DATES 
dat$=MID$(e$,4,2)+”. "+LEFTS: 
z1=VAL(UIDS(e$,4,2)) 

L(LEFT$(e$,2)) 

IL(RIGHT$(e$,4)) 

-INT(.6+(1/22)) 

25=23-24 

26=22+12%24 

15/100 

28=INI(271/4) 

29=INI(z71) 

210=1NT((5#25)/4) 

z11=INT(13*(26+1)/5) 
gezlir210-29H28421-1 
2=2-(7#INT(2/7))+1 
actueldateg=dayg(z)+", "+dats 
suB 


(@8,2)+”. "+RICHTS(8$,4) 


. Monatslaengen -- 


DATA Sonntag, Montag, Diensteg, Mittwoch, Donnerstag, 
Freitag,Sanstag 


Wenn Sie einen näheren Eindruck davon erhalten wollen, was 
sich mit diesen Unterroutinen programmieren läßt, sollten Sie sich 
in diesem Heft den »File-Requester« (Seite 94) näher ansehen. 
Hier wurde von diesen Routinen ausgiebig Gebrauch gemacht. 
Das Programm stellt auch ein gutes Beispiel für die Verwendung 
der Routinen dar. 

‚Wenn Sie sich näher für die Programmierung von Basic-Pro- 
grammen mit Library-Routinen interessieren, ist der Artikel auf Sei- 
te 62 eine gute Hilfe für Sie. kn 
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von Andreas Regul 


ie meisten professionel- 
len Programme besit- 
zen zum Laden, Spei- 
chern und Bearbeiten von Da- 
teien sogenannte File-Reque- 
ster. Damit ist es sehr schnell 
möglich sich Unterverzeichnis- 
se anzusehen, und mit Files zu 
hantieren. Wenn Sie meinen, 
daß dies in Basic vollkommen 
unmöglich ist, werden Sie spä- 
testens am Ende dieses Arti- 
kels vom Gegenteil überzeugt 
sein. Wir wollen Schritt für 
Schritt ein Programm erstellen, 
welches Sie später in Ihre eige- 
nen Programme einbinden und 
nutzen können. Ziel dieses 
Sub-Programms ist es: 
Die universelle Einsetzbar- 
keit des Requesters. 


Bild 1. Der 
grafisch 
ansprechen- 
de und funktio- 
nell gestaltete 


Wer wünsı | 
tablen und 


ungsfähigen File-Requester, mit dem 
man bequem per Mausklick Dateien ein- und ausgeben kann. 


File-Re- 


pral[prL BrZ] 


quester ver- 
leiht Ihren 
Projekten eine 
professionel- 
le Note 


28.81.1988 
4 28.81.1988 
28.81.1988 
28.81.1988] 
28.81.1988 
28.81.1988; 


ze Ref 


Tosfes-Aniga. in 


Die schnelle Ausgabe von Di- 
rectories und Files. 

Sowie ein hoher 
nungskomfort per Maus. 

Um diesen Ansprüchen zu 
genügen, verwenden wir Be- 
triebssystemroutinen, die von 
‚Amiga-Basio aus leicht ange- 
sprochen werden können. 

Wir benötigen für das Ausle- 
sen des Verzeichnisses einer 
Diskette einige Betriebssystem- 
routinen, welche hier näher vor- 
gestellt werden. Die Funktion 
»Lock« ist sehr wichtig für uns, 
da die DOS-Library in vielen 
Fällen über sogenannte Locks 
auf Dateien zugreift. Dies ist 
notwendig, weil der Amiga ein 
Multitasking-Betriebssystem hat 
und mehrere Programme gleich- 
zeitig nebeneinander laufen 
können. Da nun jeder Task die 
Möglichkeit hat, auf eine be- 
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Bedie- 


stimmte Datei zuzugreifen, 
kann es zu Problemen kom- 
men, wenn gleichzeitig mehre- 
re Tasks auf diese eine Datei zu- 
greifen. Um dies zu verhindern, 
muß durch den Lock-Befehl 
dem Betriebssystem mitgeteilt 
werden, daß der Task nun auf 
diese eine Datei zugreifen will. 

Der Lock-Funktion müssen 
zwei Parameter übergeben 
werden: Der Name der Datei 
oder des Verzeichnisses und 
der Zugriffsmodus, also ob aus 
der Datei gelesen oder in sie 
geschrieben werden soll. Als 
Rückgabewert erhält man ei- 
nen Zeiger auf den Lock bzw. 
null, wenn der Lock nicht be- 
schafft werden konnte. 

Der Befehl »UnLock« gibt 
umgekehrt zum Befehl »Lock« 
den Lock auf eine Datei oder 
ein Verzeichnis frei. Als Para- 


meter muß der Zeiger auf den 
Lock angegeben werden, den 
man zuvor durch die Funktion 
»Lock« erhalten hat, Der 
UnLock-Befehl sollte späte- 
stens bei Programmende aus- 
geführt werden, da ansonsten 
die Datei von keinem anderen 
Task mehr bearbeitet werden 
kann. 


Alles per 
Mausklick 


Die Funktion »Examine« be- 
schafft Informationen über eine 
Datei oder ein Verzeichnis, wie 
die Größe, den Typ, das Datum 
der letzten Bearbeitung, usw. 
Es sind wiederum zwei Para- 
meter nötig. Zum einen der 
Lock, den Sie mit der Lock- 
Funktion zuvor ermittelt haben, 
undzum anderen ein Zeiger auf 


einen Speicherbereich, ab dem 
die ‚Informationen abgelegt 
werden sollen. Zurückgegeben 
wird -1 oder 0, abhängig davon, 
ob die Information beschafft 
werden konnte oder nicht. 

Die Funktion »ExNext« arbei- 
tet sehr ähnlich wie die Exa- 
mine-Funktion. Sie erhalten 
wiederum Informationen zu ei- 
ner Datei bzw. zu einem Ver- 
zeichnis, jedoch kann mit die- 
ser Funktion ein ganzes Ver- 
zeichnis ausgelesen werden. 
»Examine« dient dazu, den er- 
sten Eintrag zu lesen, mit »Ex- 
Next« werden daraufhin alle 
weiteren Einträge gelesen, bis 
die Funktion den Wert 0 zurück- 
liefert. Dies bedeutet, daß keine 
weiteren Einträge vorhanden 
sind. Die Parameter sind die 
gleichen wie bei »Examine«. 

Schließlich benötigen wir 
noch die Funktion »Info«, die im 
Gegensatz zu »Examine« oder 
»ExNext« Informationen von ei- 
ner ganzen Diskette liefert. Als 
Parameter muß der Lock auf ei- 
ne beliebige Datei oder ein be- 
liebiges Verzeichnis der Disket- 
te und ein Zeiger auf einen 
Speicherbereich übergeben 
werden. Der Speicherbereich 
nimmt wiederum die Tabelle 
der Informationen auf. 

Sehen Sie sich nun imLListing 
einmal näher das Unterpro- 
gramm »directory« an. Als erste 
Zeile mit einer Betriebssystem- 
funktion finden Sie folgende: 
filelock&=Lock&(SADD 
(path$) ‚-2) 

Wir holen uns also zunächst 
den Lock zum Verzeichnis 
»path$«. Es ist überaus wichtig, 
daß »path$« mit einem CHR$(0) 
endet. Ansonsten würde Ihr 
Amiga sehr wahrscheinlich ab- 
stürzen. Die Funktion »Lock« 
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benötigt die Adresse des ersten 
Zeichens von »path$«; diese 
Adresse erhalten wir durch den 
Basic-Befehl »SADD«. Der zwei- 
te Parameter (hier »-2«) gibt an, 
daß wir einen Lock zum Lesen 
benötigen. Zum Schreiben hät- 
ten wir hier »-1« angeben müs- 
sen. Die Variable »filelock&« 
nimmt den Zeiger auf den Lock 
auf, den wir später noch häufig 
brauchen. 

Die darauffolgende Zeile be- 
nutzt wiederum eine Betriebs- 
systemfunktidn: 


adr&=AllocRemenmber& 
(0&,300,65540&) 

Diese Funktion reserviert ei- 
nen Speicherbereich einer be- 
stimmten Größe und gibt des- 
sen Adresse zurück. Wir benö- 
tigen für die Informationen ei- 
nen Speicherbereich, der sich 
mit dieser Funktion recht ein- 
fach belegen läßt. Das Be- 
triebssystem reserviert diesen 
Bereich und schützt ihn vor 
Überschreiben durch andere 
Programme, bis er wieder frei- 
gegeben wird. Der erste Para- 
meter muß beim ersten Aufruf 
der Funktion immer auf null ge- 
setzt werden. Er gibt einen Zei- 
ger auf eine Remem- 
ber-Struktur an, die wir für un- 
ser Projekt aber nicht weiter 
brauchen. Der zweite Parame- 
ter stellt die Größe in Bytes dar, 
die reserviert werden soll. Da 
die Info-Struktur der Dateien et- 
wa 260 Byte und die der Disket- 
te etwa 32 Byte in Anspruch 
nimmt, kommen wir mit 300 By- 
te leicht aus. Mit dem letzten 
Parameter können noch be- 
stimmte Eigenschaften des an- 
geforderten Speichers einge- 
stellt werden. Unser Wert von 
65540 besagt, daß der Spei- 
cher nicht verschiebbar ist (was 
zwar im Moment vom Betriebs- 
system noch nicht vorgenom- 
men wird, aber aus Kompatibili- 
tätsgründen immer sinnvoll ist), 
und daß der Speicherbereich 
mit Nullen aufgefüllt wird. Die 
Variable »adr&« nimmt die 
Adresse auf, an der der Spei- 
cherbereich beginnt oder null, 
wenn der gewünschte Speicher 
nicht bereitgestellt werden 
konnte. Hierauf können wir nun 
mit der Info- und der Examine- 
Funktion den Speicherbereich 
mit den Informationen über Da- 
teien und Diskette füllen: 


e%=Examine%(filelock&, 
adr&) 
e%=Info%(filelock 
&, adr&+260) 
Die beiden Informations- 


strukturen werden direkt hinter- 
einander gesetzt, die eine ab 


Die File-Info-Struktur 


0 Diskettennummer 4 
8 Dateiname 
116 Protectionbits: 3) 
2 
4 
8 
16 
120 Eintragtyp (?) 
124 Größe in Bytes 
128 Größe in Blocks 
132 Datumsstruktur: 132 
136 
140 
144 Kommentarzeile 


Eintragtyp (größer null > 
Verzeichnis; kleiner null > 
Datei) 


nicht löschbar 
= nicht ausführbar 
= schreibgeschützt 
= lesegeschützt 

= archivbit 


‚Anzahl Tage seit dem 1.1.1978 
Anzahl Minuten seit Mitternacht 
Ticks 


Informationen über eine Datei 


Tabelle 1. Die File-Info-Struktur gibt Ihnen alle wichtigen 


Die Disk-Info-Struktur 


0 Anzahl der Fehler 

4 Laufwerksnummer 

8 Diskettenstatus: 80 schreibgeschützt 
81 wird gerade überprüft 
82 überprüft 

12 Anzahl Blocks 

16 Anzahl Blocks beschrieben 

20 Bytes je Block 

24 Disketten-Typ 

28 Zeiger auf den Diskettennamen 

32 <> 0, wenn auf Diskette zugegriffen wird 


Tabelle 2. Wenn Sie wissen wollen, was in Ihrer Diskette 
steckt, fragen Sie die Disk-Info-Struktur 


‚Adresse »adr&«, die andere ab 
»adr&+260«. Die Strukturen 
enthalten folgende Informatio- 
nen: 

Die Zahlen vor den einzelnen 
Einträgen geben an, ab wel- 
cher Position, vom Anfang der 
Liste an gerechnet, die jeweili- 
ge Information zu finden ist. 
Bisher befindet sich diese 
Struktur nur irgendwo im Spei- 
cher. Um damit arbeiten zu kön- 
nen, müssen wir sie jedoch in 
Variablen zur Verfügung ha- 
ben. Hierzu eignet sich der 
PEEK-Befehl sehr gut. Wir kön- 
nen mit diesem Befehl die Infor- 
mationen einzeln auslesen. Die 
folgenden Zeilen im Listing ma- 
chen von diesem Befehl des- 
halb auch regen Gebrauch. In 
einer WHILE...WEND-Schleife 
werden dabei so lange Daten 
ausgelesen, bis die ExNext- 
Funktion den Wert null liefert. 
Die gleiche Schleifenkonstruk- 
tion wird noch einmal verwen- 
det, um den Datei- bzw. Ver- 


zeichnisnamen einzulesen. Da- 
bei ist es nützlich, daß vom Be- 
triebssystem Zeichenketten im- 
mer mit einem CHR$(0) abge- 
schlossen werden. In der 
Hauptschleife befinden sich au- 
Berdem noch einige mathema- 
tische Ausdrücke, um aus der 
Tagesanzahl seit dem 1.1.1978 
das tatsächliche Datum zu be- 
rechnen. So können Sie sofort 
feststellen, warum Sie ein File 
zuletzt abgespeichert haben. 

Von diesem Unterprogramm 
wird am Ende noch die entspre- 
chende Routine zum Sortieren 
der Einträge aufgerufen. Da wir 
unseren File-Requester mög- 
lichst komfortabel machen wol- 
len, stehen drei verschiedene 
Sortierkriterien zur Verfügung: 
Nach dem Alphabet (wie übli- 
cherweise sortiert wird), nach 
dem Datum der letzten Verän- 
derung und nach der Länge der 
Datei. 

Durch Aufrufen des Unter- 
Programms »directory« wird al- 


‚Anzahl der Files im entsprechenden Verzeichnis 


numberfiles 

files() Array mit den einzelnen Dateinamen 

size&() Array mit den Dateilängen 

created$() Array mit dem Datum der letzten Veränderung 


Tabelle 3. Mit dem Unterprogramm »directory« wird das 
‚Auslesen einer Diskette zum Kinderspiel 
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Suss 


so das Verzeichnis mit dem 
Pfad »pfad$« zusammenge- 
stellt und sortiert. Folgende Va- 
riablen enthalten die daraus 
hervorgegangenen Informatio- 
nen: 

In dem Array »file$()« werden 
sowohl weitere Verzeichnisse 
als auch Dateien abgelegt. Um 
zwischen diesen unterscheiden 
zu können, wurde bei den Ver- 
zeichnisnamen immer CHR$(1) 
vorangestellt. Dies hat neben 
der Unterscheidung den Vor- 
teil, daß beim Sortieren immer 
die Unterverzeichnisse an den 
‚Anfang gesetzt werden und erst 
danach die Dateien folgen. Die- 
se wiederum werden vom Pro- 
gramm nach einem der drei 
auszuwählenden Sortierkrite- 
rien aufgelistet. 

Nachdem wir nun die Routi- 
ne zum Auslesen des Verzeich- 
nisses fertiggestellt haben, be- 
nötigen wir eine übersichtliche 
Eingabemaske. Das Unterpro- 
gramm »File-Requester« öffnet 
ein neues Fenster und baut ei- 
ne Maske wie in Bild 1 auf. Um 
den Programmieraufwand nicht 
zu groß werden zu lassen, wur- 
den einige Hilfsunterprogram- 
me verwendet, die häufiger be- 
nötigte Grafiksymbole ausgeben 
(z.B. »box«, »button«, »writeline«, 
»arroWup«, »arrowdown«, uSW.). 
Bitte betrachten Sie sich auch 
diese Unterroutinen einmal nä- 
her. Sie enthalten eine Reihe 
von Grafik-Betriebssystemfunk- 
tionen, mit denen die Ausga- 
ben auf dem Bildschirm merk- 
lich beschleunigt werden. 

Der Befehl »Move« setzt den 
Grafik-Cursor auf die angege- 
bene Pixelposition. 

Mit »Draw« wird eine Linie zur 
übergegebenen Position gezo- 
‚gen. Sie beginnt bei der aktuel- 
len Pixelposition (also bei der 
mit »Move« gesetzten). 

Mit »RectFill« wird ein Recht- 
eck ausgegeben, dessen Posi- 
tion durch die angegebene lin- 
ke obere und rechte untere 
Ecke bestimmt wird. 


Schnelle 
System-Routinen 


Ein ungemein nützlicher Be- 
fehl ist »Text«, mit dem Zeichen- 
ketten auf dem Bildschirm aus- 
gegeben werden, Er besitzt 
zum PRINT-Befehl von Basic 
den Vorteil, daß der Text an ei- 
ner Pixelposition ausgegeben 
werden kann und daß die Aus- 
gabe nahezu zehnmal so 
schnell (!) abläuft. Bitte vollzie- 
hen Sie im Listing die Program- 
mierung dieser Unterprogram- 
me nach. Sie werden feststel- 
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len, daß neben den eben be- 
schriebenen Parametern auch 
noch der Wert »rastport&« über- 
geben wird. Intuition greift auf 
Screens und Windows über 
diese sogenannten RastPorts 
zu, die bei fast jedem Befehl der 


Graphics-Library angegeben 
werden müssen. Man bekommt 
diese Adresse aus der 


Basic-Funktion »WINDOW(B)«. 
Es ist äußerst wichtig, daß bei 
den eben beschriebenen Be- 
fehlen der richtige RastPort 
übergeben wird, da ansonsten 
‚ein Guru unvermeidbar ist. 

Weiter geht es im Programm- 
text. Das Unterprogramm 
»checkinput« überprüft Einga- 
ben mit der Maus, wertet diese 
anhand der angeklickten Posi- 
tion aus und verzweigt zur ent- 
sprechenden Funktion. 

Wenn Sie den File-Requester 
schon einmal gestartet haben, 
ist Ihnen sicher die oberste Zei- 
le mit dem Begriff »Filter« auf- 
gefallen. Hier kann ein soge- 
nanntes Wildcard eingegeben 
werden. Files, die nicht mit dem 
Muster übereinstimmen, wer- 
den aussortiert. 

Wie diese Wildcards angege- 
ben werden, soll nun beschrie- 
ben werden. Um bestimmte Da- 
teien auszusortieren, gibt es die 
Jokerzeichen »?« und »*«, die 
einen oder mehrere Buchsta- 
ben repräsentieren. Das Frage- 
zeichen steht dabei für einen 
beliebigen Buchstaben, das 
Sternchen für beliebig viele. 
Häufig werden an Dateinamen 
sogenannte Extensions ange- 
hängt. Bekanntestes Beispiel 
hierfür ist ».info«. Eine Datei mit 
dieser Endung enthält Informa- 
tionen für die Position und das 
Aussehen des Icons auf der 
Workbench. Um z.B. nur diese 
Dateien aufzulisten, müßte fol- 
gende Wildcard angegeben 
werden: »*.info«. Das Stern- 
chen steht wiederum für eine 
beliebige Zeichenkette, die vor 
dem Trennungspunkt stehen 
kann, Die Endung ” info” ist je- 
doch fest angegeben, so daß 
nur diese Dateien aufgelistet 
werden. Es geht auch umge- 
kehrt, z.B. »Requester.*«. In 
diesem Fallwerden alle Dateien 
aufgelistet, die mit »Requester« 
beginnen; die Extension ist da- 
bei belanglos. Wenn Sie also 
»»,*« eingeben, werden alle 
Dateien berücksichtigt. Im Ge- 
gensatz zu diesem Jokerzei- 
chen steht das Fragezeichen 
nur für einen einzelnen Buch- 
staben, z.B. »Requester?«. Die- 
se Eingabe als Wildcard würde 
alle Dateien berücksichtigen, 
die mit »Requester« beginnen 
und noch ein beliebiger Buch- 


staben folgt. Natürlich muß das 
Fragezeichen nicht am Ende 
stehen, es kann beliebig im Na- 
men eingebaut sein. Um die 
Verwendung von Wildcards 
vollständig zu durchschauen, 
sollten Sie sich hiermit direkt 
am Computer etwas beschäfti- 
gen. 

Das Unterprogramm »check- 
filter« überprüft, ob die einge- 
gebene Wildcard zulässig ist, 
»checkfile« testet einen Datei- 
namen, ob er den Bedingun- 
gen der Wildcard entspricht 
und liefert je nach Ergebnis 1 
oder 0 in der Variablen »take«. 

Das Dateinamenfeld im Re- 
quester enthält den Dateina- 
men, die Länge und das Da- 
tum. Einzelne Dateien können 
durch Anklicken mit der Maus 
ausgewählt werden. Der ent- 
sprechende Dateiname steht 
daraufhin unten im Feld »Da- 
tei«. Beim Auswählen eines 
Verzeichnisses wird das ent- 
sprechende Uhnterverzeichnis 
zusammengestellt und ausge- 
geben. Hierbei wird wiederum 
der Filter und auch das Sortier- 
kriterium berücksichtigt. Die 
Filterfunktion wurde so pro- 
grammiert, daß sie nur Einfluß 
auf Dateien, nicht aber auf Un- 
terverzeichnisse hat. Andern- 
falls würden teilweise alle Un- 
terverzeichnisse aus der Liste 
verschwinden, was beim Durch- 
suchen mehrerer Verzeichnis- 
ebenen eher lästig wäre. 


Programmieren 
wie die Profis 


Es werden auf dem Bild- 
schirm jeweils nurzehn Dateien 
bzw. Unterverzeichnisse ange- 
zeigt. Die übrigen Dateien kön- 
nen wie gewohnt mit den Pfei- 
len an der Seite angezeigt wer- 
den. Mit dem Schiebebalken 
kann durch Anklicken und Ver- 
schieben bei gedrückter Maus- 
taste ebenfalls ein bestimmter 
Anzeigebereich gewählt wer- 
den. Wenn Sie unterhalb oder 
oberhalb des Schiebebalkens 
klicken, wird der angezeigte 
‚Ausschnitt jeweils um zehn Ein- 
träge nach unten bzw. oben ge- 
schoben. 

Rechts oben kann das Lauf- 
werk gewählt werden. Angege- 
ben sind hier DFO, DF1, DF2, 
DHO, RAM. Diese Angaben 
können aber beliebig verändert 
werden. Im Listing sind sie zu 
Beginn des Unterprogramms 
»File-Requester« zu finden. Im 
Array »unit$()« können bis zu 
sechs Laufwerke eingetragen 
werden. Zwar ist es auch mög- 
lich, die tatsächlich ange- 
schlossenen Laufwerke vom 
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Programm selber zu bestim- 
men, jedoch müßte dies über 
den CLI-Befehl »Info« vorge- 
nommen werden. Für User mit 
nur einem Diskettenlaufwerk 
kann dies nervenraubend wer- 
den, da jedesmal die Work- 
bench verlangt wird. Daher ist 
die einmalige Angabe während 
der Programmierung ein sinn- 
voller Kompromiß. 

Das darunterliegende Gad- 
‚get »Vorgänger« hat die Funk- 
tion, eine Verzeichnisebene zu- 
rückzugehen. Dies funktioniert 
natürlich nur so lange, bis man 
sich im Hauptverzeichnis befin- 
det, Ist dies der Fall, hat dieses 
Gadget keine Wirkung. 

Hinter »Gefüllt:« wird In Pro- 
zenten angezeigt wie voll die 
selektierte Diskette Ist. So kön- 
nen Sie schon frühzeitig sehen, 
ob noch genug Platz auf der 
Diskette ist, ohne erst durch das 
Betriebssystem darauf auf- 
merksam gemacht zu werden. 

Wie schon oben erwähnt, gibt 
es verschiedene Sortierkrite- 
rien, die rechts unter »Sortiert 
nach:« ausgewählt werden kön- 
nen. Prinzipiell ist hierzu zu sa- 
gen, daß Verzeichnisse und Da- 
teien getrennt voneinander sor- 
tiert werden. Dies bewirkt, daß 
alle Unterverzeichnisse am An- 
fang der Liste stehen. So sind 
erst die Verzeichnisse von A bis 
Z aufgeführt (Klein- und Groß- 
schreibung wird nicht unter- 
schieden) und darunter alle Da- 
teinamen von A bis Z. Wenn 
nach der Länge sortiert wird, 
stehen die kurzen Dateien am 
‚Anfang, die lagen am Ende. Da 
die Verzeichnisse keine Län- 
genangabe besitzen, werden 
sie weiterhin alphabetisch sor- 
tiert. Beim Sortieren nach dem 


‚Anweisung zu einer Operation 


mit einer Datei. Da dieser File- 
Requester möglichst universell 
programmiert wurde, muß die- 
se Operation durch Ihr eigenes 
Programm ausgeführt werden. 
Der Requester kann daher zum 
Laden, Speichern, Löschen, 
Umbenennen oder einer ande- 
ren Funktion verwendet wer- 
den. Grundsätzlich wird nur el« 
ne Datei ausgewählt. Wie diese 
Datei daraufhin weiterbearbei- 
tet wird, ist vom übrigen Pro- 
gramm abhängig. 

Dieser Requester ist ge- 
dacht, in eigene Programme 
eingebunden zu werden, wel- 
che die zurückgegebenen Va- 
riablen verwerten. Sie können 
z.B. eine Datenbank, eine Text- 
verarbeitung oder ein anderes 
Programm erstellen und für die 
Dateioperationen diesen Re- 
quester zur Hilfe nehmen. 


Ein File-Reque- 
ster für alle Fälle 


Um möglichst sinnvoll mit 
dem Requester arbeiten zu 
können, speichern Sie ihn bitte 
nach dem Abtippen als ASCII- 
File ab (SAVE ”Programmna- 
me’”,a). Dies hat den Vorteil, 
daß er mit dem MERGE-Befehl 
sehr einfach an eigene Listings 
angehängt werden kann. Auf- 
gerufen wird er mit »GOSUB 
File-Requester.. Daß keine 
SUB-Unterprogramme verwen- 
det wurden, hat einen gewichti- 
gen Grund. Während der Pro- 
grammierung fiel mir auf, daß 
die Arbeitsgeschwindigkeit teil- 
weise bis auf die Hälfte absank, 
so daß dieser Nachteil den Vor- 
teilder besseren Lesbarkeli von 
SUB-Routinen überwiegt. 


filter$ 


file$ 


sortmode 


x-Position des Requesters auf dem Bildschirm 
y-Position path$ Pfad zum Verzeichnis, dessen 
Einträge ausgegeben werden sollen. Der Pfad 
muß immer mit der Laufwerksangabe beginnen 
(z.B. "DFO-Texte”). Ferner muß diese Laufwerks- 
angabe auch im Array unit() vorhanden sein. 
Wildcard, die hinter »Filter« erscheinen soll 
Dateiname, der hinter »Datei« ausgegeben 
werden soll (Ist im Normalfall ein Leerstring) 
Diese Variable darf die Werte 1 bis 3 annehmen, 
welche die Sortierkriterlen angeben: 

1 = Sortiert nach Alphabet 

2 = Sortiert nach Datum 

3 = Sortiert nach Länge 


Tabelle 4. Mit diesen Übergabeparametern können Sie dem 
File-Requester mitteilen, wie und was er Ihnen anzeigen soll 


Datum stehen Files, die vor län- 
gerer Zeit erstellt wurden, am 
Anfang, und die zuletzt erstell- 
ten am Ende. 

Mit dem Abbruch-Gadget 
verlassen Sie den Requester, 
ohne eine Funktion auszufüh- 
ren, mit »Okay« geben Sie die 


Durch einige Parameter kann 
Einfluß auf die Einstellungen 
des Requesters genommen 
werden. Folgende Variablen 
müssen vor dem Aufruf überge- 
ben werden: 

Nach Beendigung des File- 
Requesters wird das Fenster 
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Pfad zur ausgewählten Datei oder Leerstring, 
wenn »Abbruch« gewählt wurde. 

Dateiname der ausgewählten Datei oder 
Leerstring, wenn »Abbruch« gewählt wurde. 


Ist ungleich null, wenn ein Fehler aufgetreten ist. 
Dies kann vorkommen, wenn ein Pfad 
angegeben wurde, der nicht existiert oder ein 
Laufwerk angesprochen wurde, das nicht 


vorhanden ist, 


Tabelle 5. Die Rückgabewerte des File-Requesters können 
Sie leicht übernehmen und weiterverarbeiten 


wieder gelöscht und der darun- 
ter liegende Bildschirmaus- 
schnitt wieder ausgegeben. 
Die Variablen enthalten nun fol- 
gende Werte: 

Am Anfang des Listings be- 
finden sich noch einige Zeilen, 
die nicht in die Unterprogram- 
me des File-Requesters aufge- 
nommen werden können. Dies 
ist zum einen die Dimensionie- 
rung der benötigten Arrays und 
zum anderen das Einbinden 
der Betriebssystemroutinen. Um 


diese nutzen zu können, muß 
auf der gleichen Diskette, auf 
der Sie den File-Requester sel- 
ber gespeichert haben, das Un- 
terverzeichnis »libs« vorhanden 
sein. Für den Requester wird 
die Graphics-, die Intuition- und 
die Dos-Library verwendet, de- 
ren ».bmap«-Dateien im »libs«- 
Verzeichnis sein müssen. Ist 
dies nicht der Fall, können Sie 
in Ihrem Amiga-Handbuch 
nachlesen, wie solche Dateien 
mit Hilfe eines Programms von 


der Extras-Diskette erstellt wer- 
den. Neben Betriebssystembe- 
fehlen werden auch einige 
Funktionen (Befehle, die Werte 
zurückgeben) gebraucht. Um 
diese verwenden zu können, 
müssen sie mit dem »DECLA- 
RE FUNCTION«-Befehl als sol- 
ches angegeben werden (z.B. 
DECLARE FUNCTION Lock& 
LIBRARY). Dies ist im Listing 
jedoch angegeben. Für den 
File-Requester wird ein Screen 
mit mindestens drei Bitplanes 
benötigt. Daher muß er immer 
auf einem eigenen Screen und 
nicht auf dem Workbench- 
Screen geöffnet werden. Es 
dürfte jedoch kein Problem 
sein, eigene Programme daran 
anzupassen, zumal im Listing 
schon ein entsprechender 
Screen-Befehl enthalten ist. Mit 
diesem File-Requester sind Sie 
ein ganzes Stück weiter zum 
professionellen Programm in 


SuBs 


Amiga-Basic gekommen. Wenn 
Sie selber Betriebssystemrouti- 
nen zur Beschleunigung und 
Verbesserung Ihrer Program- 
me verwenden wollen, kann ich 
Ihnen nur ans Herz legen, das 
Listing genau zu studieren. 
Viele noch ungeklärte Fra- 
gen werden sich auf diese Wei- 
se sehr leicht klären. Zudem 
lernen Sie einiges über struktu- 
rierten Programmaufbau und 
professionelle Programmie- 
rung In Basic, Nun wünsche Ich 
Ihnen viel Spaß mit dem File- 
Requester und Erfolg für Ihre 
eigenen Projekte, pe 


Andreas Aegul beschäftigt sich seit Anfang 
1988 intensiv mit dem Amiga, und kennt die- 
sen Computer, nicht zuletzt durch seine oxzel- 
Ionen. Programmierkenntnisse, durch und 
durch, Sie erreichen Ihn über unsere Verlags- 
anschrift (Markt &Technik Verlag AG, Redak- 
tion Sonderhefte, z.Hd, Herr Regul, Hans- 
Pinsel-Straße 2, 8013 Haar bel München). 


Programmname: File-Requester 
Computer: A500, A1000, A2000 mit Kickstart 
1.2&13 
Sprache: AmigaBasic 


34a ' File - Requester V1.0 
495 ' von Andreas Regul (e) 11/1989 


782 naxnunber=200 

& ke DIM unit$(6) ‚?ile$(maxnunber) ‚size&(maxnunbe: 
(maxnumber) ‚sort&(maxnunber) 

ERREN DIM montklength(12) 

30,Qn FOR Ipsı TO 12 

Au Ir6 READ monthlength(1p) 

12 und NEXT 

13.280 ! ----- Einbinden von Systenroutinen - 


14 664 LIBRARY "graphios.librany” 


25.08 LIBRARY 
18 Ro LIBRARY * 
17 01 DECLARE 


18 Ju DECLAL AllooRemenbi 
om DECLARE FUNCTION Exanine% 
20 Bi DECLARE FUNCTION ExNext% LIBR 
21 yF DECLARE FUNCTION In£o% LIBRARY 


22 uno ı Bildschimaufbau = 
23 Soh ICREEN 1,640,256,3,2 

24 20 pos=16 

25 AD ypos=40 

26. dp Alitende”* 

ER pathöm "DRO;" 

28 0b gilege"" 

29 IR sortmodeni 

30. K4 SUR Filerequester 
EN AND 

32 BX0 ' =. File-Requesten Haupte 


33 002 filerequesti 
34 tp4 path$=path$+CHR$(0) 


35 Le unit$(1)="DFO* 
36 Tm units(2)="l 
ELAC 

38 de 

29.84 

20.07 

a km gadgetoffseta0 
42 y€ gadgetoffset2=0 


43 26 

Ar 

45 ot 

k6 0a 

47 dk6 

28 zul 

49 Sk 

50 Wu 

51 pr& 

52. Co 

53 ng4 

54 12 

55 Zu 2,, (xpos, ypos)-(xpos+594,ypos+144) ‚0,1 

56 18 Ä CLOSE 1 

>7 IINDOW (8) 

N 0,.41,.35,.29 

FE ‚0,0,0 

‚60 88. 2,.72,.6,.47 

61 5D E 3,.85,.72,.6 

62 YE PALETTE 4,1,.85,.85 

63:50 PALETTE 5,1, .72,.6 

64 Wo PALETTE 6,.47,.35,.22 

65 oe xpos=0:ypos=0:length=595:height=154:00l10ur=2:00SUB box 

62 COLOR 1,2 

6716 1 ypos=14:txt$="Filter”:G0SUB writeline 

68a 08=6: length=351:heighteil:oolours3:00SUB box 

sw 08»22: 1ength=407:height=95:00SUB box 

7 np uxt$e"Pfad”:00SUB writeline 

71 av elght=il:60SUB box 

72 uy txtö= "Datei *:00SUB writeline 

73 AB :length=359:helght=11:008UB box 

Th ne 22: lengthe20:height tllel:seleoted«0: 

button 

75 Mu 

76 FP 

ma 38 

77 Ypos=116:008UB arrowdonn 

79 pa FOR Iple1 70 2 

80 136 FOR 1p2s1 70 3 

81 ed IF 1p1#3+1p2-3eunit THEN seleoted=1 ELSE seleoted=O 

82 xpos=1p2r48+402:ypos=1piN16-10: lengthe40:heighteil: 

ur=3:G0SUB button 
8318 OR 1,3 
8 da xpos=xpos+d:ypossypos+B:txt$eunit$(1p1#3+1p2-3) 
Cost 

85.6 

36 TIL 

BT ER 2p08=450:ypo: length=136:height=11:Fill=1:seleoted=0 
:eolour=3:C0SUB button 

Listing 1. Der komfortable File-Requester erleichtert den 

Umgang mit Dateien 


MA DEFTEIO MECOMEUTERWORLD COM 


EN 


xpos=460:ypos=46:txt$="Vorgänger”:GOSUB writeline 
xpos=450:ypos=53:G0SUB box 
xpos=460:ypos=6l:txt$="Gefüllt: 
COLOR 1,2 
xpos=452:ypos=74:txt$="Sortiert nach: ”:GOSUB writeline 
xp0s=450:ypos=78:G0SUB button 

(COLOR 1,3 

xpos=460:7pos=86:txt$="Dateinane”:G0SUB writeline 
xp0s=450:ypos=92:00SUB button 
xpos=460:ypos=100:txt$="Datun”:GOSUB writeline 
xpos=450:ypos=106:GOSUB button 
xpos=460:ypos=114:txt$="Länge”:C0SUB writeline 
xpos=450:ypos=122:008UB button 
xpos=460:ypos=130:txt$="Abbruch”:GOSUB writeline 
‚xp08=450:ypos=137:G0SUB button 
xpos=460:ypos=145:txt$="Okay”:GOSUB writeline 
xpo8=450: ypos=sortnode#14+64:Pil1=0:selectede1:C0SUB 
button 

GOSUB filteroutput 

GOSUB pathoutput 

GOSUB Fileoutput 

GOSUB directory 

GOSUB £illedoutput 

GOSUB Filesoutput 

COSUB mousedunmy 

GOSUB checkinput; 

WINDOW CLOSE 2 

RETURN 

Directory zusammenstellen 


:GOSUB writeline 


direotory: 


errno«O 
unit$=LEFT$(path$,4) 
IP RIGHTS(undt$,1)< >": THEN 

ermosi 

RETURN 
END IF 
filelock&=Lock& (SADD(path$) ‚-2) 
IF adr&=O THEN adr&=AllooRenenber&(0&,300,635408) 
IF Pilelock&=O THEN 

errno«2 

RETURN 
ELSEIF adrkeO THEN 

errno=3 

RETURN 
END IF 
et«Infoß (Filelock&,adr&+260) 
blocks&=PEEKL(adr&+272) 
blockused&=PEEKL(adr&+276) 
IF blocks&<>0 THEN FilledsOINT 
(blockused&#100/blooks&) ELSE Fillede-1 
et=Examine# (Filelock&,adr&) 
nunberfiles«O 
ofFset«0 
gadgetoffset=D 
gadgetoffset2=0 
morefiless1 
WHILE norefiles 

esExNext% (filelockä,edr&) 

IF e<>0 THEN 
sign=SCN(PEEKL(adr&+4)) 
size&=PEEKL(adrä+124) 
days=PEEKL(adr&+132) 
diffyears=INI((days+.5)/365.25) 
leapyears=INT( (diffysars+1)/4) 
yeur=1978+41ffysars 
IF year MOD 4=0 THEN 

leapyear-1 
monthlength(2)=29 
zISE 
leapyear=0 
nonthlengtn(2)=28 
END IF 
dayszdays-diffyearst365-leapyears+l 
month=i 
WHILE days>monthlength(month) 
days=days-monthlength(nontn) 
monthsnontir1 
WEND 
day-days 
IF dey<10 THEN erented$="0" ELSE created$="" 
ereated$=created$+MID$(SIRS(day).2)+".” 


167 00 
168 Y1 


169 c6 
170 xT 
171 2a 
172 IY 
173 9b 
174 57a 
175,50 
176 Y8 
177 168 
178 © 
172 pa 
180 ce 
181 Rt 
182 sB 
183 Be 
184 zIa 
185 dpt 
186 Tp 
187 j1E 
188 Un 
189 Tu 
130 In 
191 Iu6 
192 2va 
193 308 
1% j86 
195 a8 
196 626 
197 0% 
198 wa 
19 Ic 
200 RS6 
201 924 


IF nonth<10 THEN ereated$soreatedg+"0" 
oreated$screated$+MIDF(STRE (month) „2)+". +MIDB(STRS 
(year) ‚2) 
adr2l=edrirs 
silage”” 
cher=1 
tines=0 
WEILE‚char<>0 AND tines<32 
‚char=PEEK(adr2&+times) 
IF char<>0 THEN File$=flle$+CHRS(cher) 
tinesstines+l 
WERD 
IF nunberfiles<maxnunber THEN 
IF signel THEN 
aunberfilessmunberfiles+1 
Tile$(nunberfiles)sCHR$(1)+File$ 
stzek(nunberfiles)=0 
ereated$(nunberfiles)zoreatedß 
zLsE 
(GOSUB checkfile 
IF take THEN 
nunberfilessnunberfiles+1 
tile$(nunberfiles)=file$ 
size&(nunberfiles)=size& 
oreated$(nunberfiles)=oreated$ 
END IF 
END IF 
END IF 
ZISE 
morefiles=O 
END IF 
WEND 
ON sortmode GOSUB filenanesort,datesort,lengthsort 
IF nunberfiles>10 THEN 
gadgetlengtneINT(690/nuhberfiles) 
ELSE 
gadgetlength=69 
END IF 
CALL UnLock& (Pilelock&) 
Ailege”" 
RETURN 
-- Nach Alphabet sortieren ----- 
filenanesort: 
firstfilest 
lastfilesnunberfiles 
GOSUB dofilenamesort 
RETURN 
Nach Datum sortieren 
datesort: 
GOSUB dirtofront 
FOR 1ps1 TO nunberfiles 
sortä(1p)=VAL(LEFTS(oreated$(1p),2))+VAL(MID$(created 
Sp) »4,2))A314VAL(RIGHTS(oreated$(1p) ,2))#372 
NEXT 
firstfilesl 
lastfilesnunberdirs 
GOSUB dodatesort 
irstfilesnunberdirs+L 
lastfilesnunberfiles 
GOSUB dodatesort 
RETURN 
Nach Laenge sortieren --- 
lengthsort: 
GOSUB Airtofront 
firstfilesi 
lastfilesnunberdirs 
GOSUB filenanesort 
firstfilesnunberdirs+L 
lastfilesnunberfiles 
GOSUB dolengthsort 
RETURN 
Unterverzeichnisse an den Anfang bringen ----- 
dirtofront: 
munberäirs-0 
FOR 1ps1 TO nunberfiles 
Ir LEFTS(File$(1p)‚2)=CHRS(1) THEN 
munberäirsenunberdirs+1 
SWAP #ile$(numberdirs) ‚file$(1p) 
SWAP sizek(mumberdirs) ‚siae&(1p) 
SWAP ereated$(nunberdirs) ‚oreated$(1p) 
END IF 
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246 384 NEXT 

AT ix RETURN 

248 450. * ----- von - bis nach Datum sortieren -——- 
249 «12 dofllenamesort: 

250 0X PileS(0)=STRINGS(30, "2") 


251 38 FOR 1pefirstfile TO lastfile 

252 16 FOR 1p2=1p TO 1estfile 

253 1E8 IF UCASES(file$(1p2))<file$(0) THEN 
25% za tile$(0)=UCASES(FILe$(1P2)) 

255 vB Andex=1p2 

256 4x8 END IF 

257. EI6 NEXT 

‚258 0a Shap file$(1p)‚file$(index) 

259 3F SuAP sizeß(1p) ‚size&(index) 

‚260 Sh SWAP created$(1p) ‚created$(index) 


261 Ri File$(0)=STRINGE(30, "2 
262 104 NEXT 

263 60 RETURN 

264 #80 ' ----- von - bis nach Datum sortieren ----- 
265 y72  dodatesort: 

266 g04 sort&(0)=400000& 


267 20 FOR 1pefirstfile TO lastfile 

268 X76 FOR 1p2e1p TO lastfile 

269 158 IF sort&(1p2)<sort&{0) THEN sort&(0)=sort&(1p2): 
index«1p2 

270 Ru6. NEXT 

271 Dn SWAP file$(1p),Pile$(index) 

‚272 C5 SWAP size&(1p) ‚size&(index) 

273 fü SWAP oreated$(1p) ‚created$(index) 

274 68 SWAP sortk(1p) ‚sort&k(index) 

275. PX ‚sor+&(0)=400000%& 


276 Koh NEXT 

277 pR RETURN 

278 2X0 ' von - bis nach Laenge sortieren -- 
279 02 dolengthsort: 

280 74 S12ek(0)=10000000% 

281 no FOR Ipsfirstfile TO lastfile 


282 116 FOR Ip2elp TO lastfile 

283 u8 IF sigek(1p2)<sizek(0) THEN size&(0)=sizek(ip2): 
Andex«1p2 

284 fk6 NEXT 

285 RL ‚Snap files(1p),‚Eile$(index) 

‚286 Up, Swap sizek(ip),size&(index) 

287 18 SWAP oreated$(1p) ‚created$(index) 

288 F8 s12e&(0)=10000000& 


289 kp4 NEXT 

290 28 RETURN 

293 10 | Eingaben ueber Maus oder 
Tastatur ueberpruefen -- 

292 eH2 checkinput: 

293 204  cancel=0 

294 Ye WHILE NOT cancel 


295 IR6 WEILE MOUSE(0)=D: END 

296. gU xpos=MOUSE(3) 

297 me ypos=MOUSE(4) 

298 Ng IF xpos>66 AND xpos<420 AND ypos>6 
AND ypos<18 THEN 

299 158 GOSUB Filterinput 

300 116 BLSEIF xpos>10 AND xpos<420 AND ypos>22 AND ypos 
<118 THEN 

301 9e8 GOSUB choosefile 

‚302 226 EISEIF xp0s>58 AND xpos<420 AND ypos>137 AND ypos 
<149 THEN 

303 558 GOSUB Fileinput 

304 Py6 EISEIF xpos>422 AND xpos<444 AND ypos>22 AND ypos 
<118 THEN 

305, us8 GOSUB propgadget 

306 JE6 BLSEIF xpos>450 AND xpos<588 THEN 

307 858 IF ypos>6 AND ypos<34 THEN 

308 pah GOSUB chooseunit 

309.108 ELSEIF ypos>38 AND ypos<50 THEN 

310 9ah GOSUB lastäireotorgy 

311 Ho8 ELSEIF ypos>78 AND ypos<118 THEN 

312 ana GOSUB choosesortmode 

313 878 ELSEIF ypos>122 AND ypos<134 THEN 

234 Tea GOSUB ancelrequest 

319 088. ELSEIF ypos>137 AND ypos<149 THEN 

316 zıh COSUB akayklickea 

317 3x8 END IF 

318 Axb END IF 

319204  WEND 


Suss 


321 2j0 ' Veberpruefen, ob Proportinal-Gadget 
Verschoben werden muss ---— 
322 2 checkpropgadger; 


323 #4 IF nunberfiles>0 THEN 

324 16 geägetoffset=CINT(offset/nunberfiles#69) 

325224  EISE 

326 Di6 gedgetoffset=0 

sau mir 

328 OW IF geägetoffset< >gaägetoffset2 THEN 

323 W6 IF out THEN SCROLL (424,34) -(438,104) ‚O,gaägetoffset- 
gadgetoffset2 

330 33 gadgetoffset2-gadgetoffset 


Bi END IF 


336%: munberpoints« 

337 6 shar=1 

338 rt WHILE INSTR(char, filter$, ”.“) 
333 006 munberpoints=nunberpoints+1 
40 xı ehar=INSTR(char, filter$,".")+1 


341 und WEND 

#2 0k pointpos=INSTR(filters, 
343 Wp munberstars=O 

4 mi ohar=1 

305 a WHILE INSTR(char,?ilter$, ”*”) 


) 


U6 086 nunberstarssnunberstars+i 

347 we cher=INSTR(char,filter$, "#")+1 

az WED 

349 3a IP nunberpoints>1 OR nunberstars>2 THEN ermno=1 

350 PI starpos1=INSTR(filter$, "#”) 

351 wL starpos2=INSTR(starposi+1, filterg, "*") 

352 ze IF munberpoints=O THEN 

353 v06 IF nunberstars<>0 THEN errnos1 

3474 IE 

355 +06 F nunberstars>0 AND ABS(starposi-pointpos) <>1 
THEN ermosi 

356 Ok IF nunberstars>1 AND ABS(starpos2-pointpos)<>1 
THEN errnos1 

357 12 IF munbersters>1 AND starposi<>1 THEN errno=1 

358 28 IF nunbersters>1 AND starpos2< >LEN(Pilter$) THEN 
errmo=1 


3a WIE 

360 An RETURN 

‚361 ?o0 ' ----- Dateiname durch Filter schicken -—--— 

362 Wu2 checkfile: 

363 To takesı 

3% Br IF filter$="" OR filter$="*" OR Filter$="*.*” THEN 


RETURN 
365 79 IF pointpos THEN IF INSTR(File$, *,")=0 THEN take=0: 
RETURN 
366 Sc IF nunberpoints<>0 THEN 
367 256 IF sterposi«1 THEN 
368 yJ8 halffilter$=UCASE$(HID$(filter$,pointpos+1)) 
363 16 halffile$=UCASE$(MIDS(File$, INSTR(file$,”.*)+1)) 
‚370 55 GOSUB checkhalffilter 
371 856 zISE 
372 ms halffilter$=UCASES(LEFTS(Filter$,polntpos-1)) 
373 19 balffileSeUCASES(LEFTS(File$, INSTR(FiLE$, ".")-1)) 
374 Be GOSUB checkhalffi! 
375 26 END IF 
0  zIsE 
37 6 helffilterg=UCASER(FilterS) 
378.04 halffile$=UCASES(File$) 
aa GOSUB checkhalffilter 
30 mm IE 
33177 BETURN 
382 v92 


eheckhalffilter: 
383 224 IF 1Ei(halffile$)>LEN(nelffilterg) THEN take-0:RETURN 
384 U IF LEN(he1FF416$)-0 AND LEN(hel#Filter$)>0 THEN take-0 
RETURN 

385 EU halffilter$>LEFT$(halffilter$,LEN(helffile$)) 

336 eg FOR 1p-1 TO IMi(helefilter$) 

387 =6 IF MID$(heifesiters,1p,1)="2" THEN 
MID$(halffile$,1p,1)="?" 


Listing 1. (Fortsetzung) 


NEHOMECCMPUTERWORLS.COM 


NEXT 
IF halffile$<>helffilter$ THEN take=D 
RETURN 

mu Filter eingeben ----- 

filterinput: 

filter2$efilterg 

xpos=76:ypos=14 

IF Pilterg<>”" TEN 

GOSUB getposition 


END IF 
mexchars=30:txt$=filter$:colour=3:GOSUB lineinput 
filtergetxt$ 
IF filter$< >filter28 THEN 
errmo«O 
GOSUB checkfilter 
IF errnos1 THEN 
filter$efilter23:00SUB filteroutput 
EISE 
GOSUB directory 
GOSUB filesoutput 
END IF 


U moon Datei anklicken ---- 
choosefile: 
index=INT((ypos-17)/2) 
IF index<1 THEN indexs1 ELSE II 
index=10 
IF offset+index<enunberfiles THEN 
COSUB mark 
GOSUB mousedunay 
GOSUB mark 
COLOR 1,3 
IF LEPTS(file$(offset+index),1)=CHR$(1) THEN 
path$=LEFT$(path$,LEN(path$)-1) 
IF RIGHTS(path$,1)=":" TEEN 
path$epath$+MID$(File$(offset+index) ‚2)+CHRS(0) 
ZISE 
pathts; 
CHRS(0) 
END IF 
(GOSUB pathoutput 
GOSUB directory 
GOSUB filesoutput 
ELSE 
filesoffset+index 
Ailegefiles(file) 
GOSUB Fileoutput 
END IF 


index>10 THEN 


th$+"/HMIDS(le$(offset+index) „2)+ 


mark: 

CALL SetDrMdk (rastport&,2) 

LINE (14,index#9+15)-(412, index#9+24) ‚4,bf 
CALL SetDrNd& (rastportk,1) 

RETURN 


xpos=6B: FEN 

GOSUB getposition 
txt$efile$:oolour=3:G0SUB Lineinput 
Pile3etxt$ 


propgadget: 
IF ypos<34, THEN 
xpos=422:ypos=22:1engthe20:height=11:fil1=0:seleoted« 
1:G0SUB button 
WEILE MOUSE(0) <>0 
GOSUB lastentry 
END 
xpos=422:ypos=22:selected«0:G0SUB button 
ELSEIF ypos>106 TuzN 
lected 


WEILE MOUSE(0) <>0 
GOSUB nextentry 


ASSSHäHERE 
SARSESgERE 


BS3a33 3 
gess 2 


BEGESSEr 58 
Bann 


BSSESSRSPYSSBSKHSRANTES 


SBSSSREESNSSSERE 


509 AL 


921 oB 
522 d58 
523 IR 
524 00a 
525 98 
928 DA 
327 RK 
>23 ıK 
529 Ir. 


xpos=422:ypos=106:selected=0:G0SUB button 
zısE 
IF ypos<gadgetoffset+36 THEN 
offsetsoffset-10 
IF offset<O THEN offsetsO 
out=D 
GOSUB checkpropgaäget 
GOSUB filesoutput 
ELSEIF ypos>gadgetoffset+gnägetlength+35 THEN 
offsetsoffset+10 
IF offset+10>nunberfiles THEN offset 
«nunberfiles-10 
ut=0 
GOSUB checkpropgadget 
GOSUB filesoutput 
EISE 
Ypos2«ypos 
xpos=426: ypossgadgetoffset+35:lengthel2:heighte 
gadgetlength:fill=O GOSUB button 
GOSUB movepropgadge 
xpos=426: ypos=gadgetoffaet+35:selected=0:00SUB 
button 
END IF 
GOSUB mousedunny 
END IF 
RETURN 
! -- Voherlgen Zintrag zeigen -- 
Anstentry: 
IF offset>0 THEN 
offsetzoffset-1 
SCROLL (12,24)-(422,114),0,9 
COLOR 1,3 
1psl:index=offsetel 
GOSUB entryoutput 
outel 
GOSUB checkpropgadget 
zND IR 
RETURN 
! -- Nächsten Eintrag zeigen -- 
nextentry: 
IF offset-10<munberfiles THEN 
offsetzoffset+i 
SCROLL (12,24)-(412,114),0,-9 
COLOR 1,3 
1ps10: index«offset+10 
GOSUB entryoutput 
outel 
GOSUB checkpropgadget: 
IND IF 
RETURN 
Yanonn Proportionelgadget verschieben ----- 
novepropgaäget: 
IF nunberfiles<11 THEN 
GOSUB mousedunny 
RETURN 


Am IF 
COLOR 1,3 
WEILE NOUSE(0) < >0 
FPos=HOUSE(2) 
IF ypos< >ypos2 THEN 
deltasypos-ypos2 
IF guögetoffset+delta<o THEN 
deltas-gadgetoffset 
ZISEIF gadgetoffaet+gadgetlengthtdelta>69 THEN 
delta=69-gudgetoffset-gadgetlength 
END IF 
SCROLL (424,34)-(438,104) ‚O,delta 
gedgetoffsetsgadgetoffset+delta 
ypos2=ypos 
offset2=CINT(gaägetoffset/69*nunbertiles) 
IF offset2+10>mumberfiles THEN offset2 
snunberfiles-10 
IF offset2< >offset THEN 
deltasoffset-offset2 
offset=offset2 
IF ABS(deit)>10 THEN delta-Sch(deita)*10 
SCROLL (12,24)-(412,114) ‚0,de1taxg 
FF delta<o IHEN 
Firstfilesilrdelte 
lastfile-10 
steprate-1 


Suss 


ZIsE 
firstfilesdelte 


FOR ip-firstfile TO lastfile STEP steprate 
indexsoffset-lp 
GOSUB entryoutput 

NEXT 


RETURN 
- Laufwerk waehlen ---- 
chooseunit: 
xpos2=INT( (xpos-400) /48) 
Ypos2=INT( (ypos+11)/16) 
Unit2eypos2x3+xpos2-3 
IF unit$(unit2) <> "" THEN 
GOSUB unftoutput 
path$sunit$(unit2)+": "+CHRE(0) 
GOSUB pathoutput 
GOSUB directory 
GOSUB filledoutput 
GOSUB filesoutput 


508 6A END IF 

569 GOSUB mousedummy 

>20 Ya RETURN 

ZU - Letztes Verzeichnis anwaehlen — 

972 lastdirectory: 

373 84 IF MID$(path$,LEN(path$)-1,1)<>":” THEN 

574 eh6, xpos=450:ypos=38:lengthe136:heightell:?! 

=1:GOSUB button 

375 14 char«LEN(path$)-1 

576 al WHILE MID$(path3,cher,1)<>"/" AND 

N NIDS(path$,char,1)<>*:” AND char>i 

577 peB charschar-i 

378 126 WEND 

579 da IF MID$(path$,char,1) THEN 

580. K7e path$=LEFT$(path$,char)+CHR$(0) 

‚581 yh6 AISE 

‚982 n68 peth$=LEFT$(path$,char-1)+CHR$(0) 

»83 186 END IF 

BES GSOSUB pathoutput 

585 41 GOSUB mousedunmy 

586 kr xp08=450:ypos=38: 1engthe136:heightell:fill=D:selected 
N =0:C0SUB button 

San GOSUB directory 

58 Du GOSUB Filesoutput 

WBORKE END IF 

50 9a GOSUE mousedunmy 

59 RETURN 

992 EaD ' ----- Sortlernodus weehlen -- 


593 262 choosesortnode: 
594 ST4  sortmodez=INT((ypos-64)/14) 
595 HL xpos=450:ypos=sortmodet14+64:length=136:height=: 


Fills:selected=0:G08UB button 
596.00 ypos=sortmode2x14+64:5electede1:G0SUB button 
es sortnode=sortmode2 

'528 02 ON Sortmode GOSUB Filenamesort,datesort,lengthsort 
59967 GOSUB Filesoutput 

‚600 0 GOSUB mousedummg 

Kuserg RETURN 

‚602 xnD. ' File-Requester abbrechen -—-—— 


603 X62 caneelrequest: 
SOA 584 


6:heis 


xpos=450:ypos=122: length 
1:G0SUB button 


RETURN 
Okay anklicken -—--- 
oked 
xpos=450:ypos=137:1engtn. 
\ 1:C0SUB button 

612 ie pathö=LEFTS(pathS,LEN(p 


)-2) 


KEN} IF RIGHT$(path$,1)<>":” THEN path$=pata$+"/” 
ÖL de eanael=-1 

25 HE RETURN 

BI6CEN ' ----- Cursorposition bestinzen -———— 


AU IPENERONECOMPUTERWORLS:LONE 


E72 geiposition: 


GEB Des _zeur-INT((MOUSE(1)-zpos+4)/8) 

&9C8 IF xeur<z THEN zeur-1 EISE IF xeur>maxchers THEN xeur 
naxchars 

my zer 

621050 ' Filter ausgeben 

622 852 

330%  comaı,3 


4 20 2p0s=76:ypos=14:txt$=Pilter$+SPACES(30-LEN(Filter$)): 
GOSUB writeline 


BR 

30 ' zuswehl markieren 

ER unitontpu 

3036 IF unit<4 THE xpos=unitx48+402:ypos=6 ELSE xpos 
={unit-3)#48+402: 

a Iengthe40:heighte11:fill=0:seleotede0:G0SUB button 

5083 IF unit2<4 THEN xpos=unit2k48+402:ypos=6 ELSE xpos= 


(unit2-3)*48+402:ypos=22 
631 7X selecte: 


COLOR 1,3 


Filled$=KID$(STRS(FILIEA),2)+" 2” 
Sir IF filled<100 THEN filledgefilleds+” " 


;t$=filled$:GOSUR writeline 


Dateinamen ausgeben ----- 
filesoutput, 
LINE (12,24)-(412,114) ,3,b? 
LINE (424,34)-(438,104) ‚3,6? 
xp0s=426:ypos=gadgetoffset+35:1engthe, 
gadgetlength:fillsl:seleoted=O:oolour«: 
IF nunberfiles<10 THEN 


BETESTRTSEHEI DERRERE 
rn Ba 


1astfileenunberfiles 
zIsE 
1estfiles10 
END IF 
COLOR 1,3 
FOR TO lasıfile 
indexsoffset+ip 
GOSUB entzyoutput 
NEXT 
RETURN 
! -— Einen Eintrag ausgeben -- 
BEZ 3u2) entryoutput: 
@63 wAL IF LEFIS(Pile$(index),‚1)=CHRS(1) THEN 
A je6 xpos=18:ypos=1pr9+22:txt$=MID$(File$( index) ‚2)::GOSUB 
writeline 
665 08 2p0s=288:ypos=1p#9+22:txt$="DIR”:GOSUB writeline 
BL. zıse 
87 086 2pos=18:ypos=1p#9+22:txt$=file$(index): 
GOSUB writeline 
&8 sr bytes$=MIDS(STR$(sire&(index)),2) 
83 0 bytes$=SPACES(6-LEN(bytes$))+bytes$ 
203 xpos=264:ypos=1p#9+22:txt$ebytes$: 
GOSUB writeline 
671 1ek zw 
2 m 0s=1pr9+22:xt$=created$ (index): 


SOSUB writeline 
Br RETURN 


87% Leo. Pfad ausgeben 
GIER rathoutput: 

E76 iA path2$-LErTS(path$,LEN(path$)-1) 
Er ia ‚LEFTS(path2$,43) 

57 = 


673 0a 2pos-66: ypos=130:4xt$-path2$+SPACE$(43-LEN(path2$)): 
COSUB sriteline 


6 ZETURN 

LEO): -—— Datei ausgeben ———— 

8282) fileoutput: 

WM  comr 1,3 

a xD0s=68:ypos=145:txt$=Flle$+SPAOES(30-LEN(FILE$)) :COSUB 
writeline 

Listing 1. (Fortsetzung) 


101 


Sa 


RETURN 
144m Textzeile ausgeben ----- 
writeline: 
CALL Movek (rastport&,xpos, ypos) 
CALL text& (rastport&,SADD(txt$) LEN(txt$)) 
RETURN 
nun Kasten ausgeben ----- 


COLOR colour 


height-1) 
COLOR ı 
CALL Movek (rastport&,xpos,ypos) 
CALL Drau& (rastport&,xpos,ypos+height-1) 
CALL Drau& (rastport&,xpos+1,ypos+height-1) 
CALL Drau& (rastport&,xpos+1,ypos) 
CALL Draw& (rastport&,xpos+length-2,ypos) 
CALL Drau& (rastport&,xpos+length-2,ypos+height-1) 
CALL Drawk (restport&,xpos+length-L,ypos+height-1) 
CALL Drauk (rastport&,xpos+length-1,ypos) 
CALL Movek (rastport&,xpos,ypos+height-1) 
CALL Draw& (rastport&,xpos+length-1,ypos+height-1) 
RETURN 
Schalter zeichnen 
button: 
IF fille1 THEN 
COLOR colour 
CALL RectFill& (rastport&,xpos,ypos,xpos+length-1, 
ypos+height-1) 
END IF 
IF selected THEN COLOR 1 ELSE COLOR 4 
CALL Move& (rastport&,xpos,ypos) 
CALL Draw& (rastport&,xpos,ypos+height-1) 
CALL Drauk (rastport&,xpos+1,ypossheight-1) 
CALL Drau& (rastport&,xpos+l,ypos) 
CALL Drau& (restport&,xpos+length-1,ypos) 
IF selected THEN COLOR 4 ELSE COLOR 1 
CALL Move& (rastport&,xpos+2,ypostheighr-1) 
CALL Draw& (rastportä,xpos+length-2,ypos+height-1) 
CALL Draw& (rastport&,xpos+length-2,ypos+1) 
CALL Drau& (rastport&,xpos+length-1,ypos+1) 
CALL Drauw& (restport&,xpos+length-1,ypos+height-1) 
RETURN 
----- Pfeil nach oben zeichnen ---—- 
arronıp: 
COLOR 1 
CALL Nove& (rastport&,xpos+4,ypos+2) 
CALL Drau& (rastport&,xpos+4,ypos+3) 
CALL Drauk (rastport&,xpos+3,ypos+3) 
CALL Drav& (rastport&,xpos+3, ypos+2) 
CALL Drau& (rastport&,spos+14,5p0s42) 
CALL Drawß (rastport&,xpos+14,ypos+3) 
CALL Drau& (rastport&,xpos+15,ypos+3) 
CALL Drauk (rastport&,xpos+15,ypos+2) 
CALL Növek (rastportk,xpos+9,ypos+2) 
CALL Drau& (rastportä,xpos+9,ypos+8) 
CALL Drau (rastportä,xpos+10,ypos+8) 
CALL Drauß (rastportä,xpos+10,ypoa+2) 
RETURN 


40) ' ----- Pfeil nach unten zeichnen -——-— 


arrowdonn: 
COLOR 1 
CALL Moves (rastportä,xpos+4,ypos-2) 
CALL Dravk (rastportä, xpos+4 ,ypos-3) 
CALL Dravk (rastportä,xpos+3,ypas-3) 
CALL Drau (rastportk,xpos+5,ypos-2) 
CALL Drauk (rastport&,xpos+14,ypos-2) 
CALL Drau (rastport&,xpos+14,ypos-3) 
CALL Drau& (rastport&,xpos+15,ypos-3) 
CALL Drau& (rastport&,xpos+15, ypos-2) 
CALL Novel (rastportä,xpos+9, ypos-2) 
CALL Draw& (rastport&,xpos+9, ypos-8) 
CALL Drawk (rastport&, xpos+10,ypos-8) 
CALL Draw& (restport&,xpos+10,ypos-2) 
RETURN 

en Zeichenkette eingeben -———- 

Lineinput: 
text2$etzistSPACEs (maxehars-LEN(txT$)) 
xpos2=xpos 


CALL RectFill& (rastport&,xpos,ypos,xpos+length-1,ypos+ 


#8 


5 ayasag 


233232 aReRe 83333323 
Pe 


Eggaen 


6) 19:0 mar 


GOSUB mousedunny 
eancel2=0 
WEILE NOT ‚cancel2 


key$- 
WEILE MOUSE(0)=0 AND keyd="" 


GOSUB eursoroff 
17 key3< >"" THEN 
IF keyS=CHR$(31) THEN 
IF xcur>1 IHEN zoursxeur-1 
ZLSEIF keyS=CHRS(30) THEN 
IF xour<maxchars THEN xoursxourtl 
ELSEIP keygsch$(13) THEN 
cangel2e-1 
EISEIF keySsCHRg(127) THEN 
text29eLEPTS(text29,xcun-1)+ 
MIDS(text2$,xcuns1)+"" 
COLOR 1, colour 
xpossxpos2:txt$=text23:00SUB writeline 
ELSEIP keySscHR$(8) THEN 
IF xeur>1 THEN 
text2$=LEFTS(text2$,xour-2)+ 
MID$(text2$,xour)+"" 
COLOR 1,colour 
xpos=xpos2:txt$etext28:00SUB writeline 
xeur=xeur-1 
DD IF 
ZISE 
text28=LEPTS(text28,xcur-1)+key$4MID$(text28, 
xeur,naxchars-xour) 
COLOR 1,colour 
xpos=xpos2:txt$=text28:G0SUB vriteline 
zeur<mexchers THEN xcursxourtl 
zum ır 
EISE 
xpos=NOUSE(1) 
‚Jpos=NöUsE(2) 
IF xpos<upos2-4 OR xpos>xpos2+nsxcherskö+4 OR 
ypos<ypos2-6 OR ypos>ypos2+5 THEN 
sancel2«-1 
USE 
xcur=INT( (xpos-xpos2+4)/8) 
IF xcur<1 THEN zcur=1 ZISE IF xour>maxchare 
THEN zoursnaxchars 
am Ir 
GOSUB mousedunay 
aD IF 
IF NOT cancel2 THEN 
GOSUB cursoron 
EN Ir 
WEND 
charsnaxchars 
WEILE char>i AND NID$(text2$,char,1)=” ” 
charschar-1 
WEND 
IF text2$=SPACES(LEN(text28)) THEN char=O 
txt$=LEATS(text2$,char) 
RETURN 
=- Oursor ausgeben -- 
cursoron: 
COLOR 1,6 ; 
xpossxpon2+xour#B-B:yposypos2:txt$aHID$(text28,xcur,1) 
:GOSUB vriteline 
RETURN 
-- Cursor loeschen -- 
cursoroff: 
COLOR 1, colour 
xpOs=xpos2+xour#8-8:ypos=ypos2:txt$=MID$(text2$,xcur,1) 
:00SUB writeline : 
RETURN 
Maustastendruck abfangen 
mousedunmy: 
WEILE WUSE(0) <>0 
van 
BETURN 
mn Honstsisengen ---- 
DATA 31;28,31,30,31,30,31,31,30,31,30,31 


Listing 1. (Schluß) 


Von Dr. Rudolf Egg 


in Malprogramm im Ex- 

tra-Halfbrite-Modus mit 

allen Schikanen - und 
das alles in Basic? Das gibt es 
nicht, werden Sie vielleicht sa- 
‚gen. Auch wir blickten ungläu- 
big, als wir das erste Mustere- 
xemplar von »Golden Paint Pot« 
in Händen hielten. Doch je 
mehr wir uns mit diesem Pro- 
gramm beschäftigten, desto 
deutlicher wurde uns, daß wir 
es hier mit einer echten Mei- 
sterleistung zu tun haben: Ein 
einfach zu bedienendes Mal- 
programm komplett in Basic, 
das den Vergleich mit kommer- 
zieller Software nicht zu scheu- 
en braucht. Hier ein paar De- 
tails als Vorgeschmack: 

Das Programm unterstützt al- 
le gängigen Screen-Formate 
außer dem HAM-Modus (Hold 
and Modify, 4096-Farben-Mo- 
dus). Beim Start können Sie 
zwischen einer horizontalen 
‚Auflösung von 320 oder 640 Pi- 
xel sowie einer stufenlosen ver- 
tikalen Auflösung zwischen 200 
und 512 Pixel wählen. Als Bild- 
schirmtiefe sind (je nach Mo- 
dus) 1 bis 4 bzw, 1 bis 6 Bitpla- 
nes frei wählbar, 6 Bitplanes 
bedeuten bekanntlich Extra- 
Halfbrite = 64 Farben möglich. 
‚Auch der Interlace-Modus steht 
wahlweise zur Verfügung. 

Neben freihändigem Zeich- 
nen mit Strichpinsel, Punkten 
und Spray sind verschiedene 
Linienfunktionen, z. B. Recht- 
eck, Polygon, Kreis und Ellipse 
vorhanden. Beliebige Bildaus- 
schnitte lassen sich als »Brush« 
definieren, spiegeln, an ande- 
ren Stellen einfügen und selbst- 
verständlich separat speichern, 
Bildflächen können mit einzel- 
nen Farben oder mit speziellen 
Füllmustern ausgemalt wer- 
den. Für solche Muster steht ei- 
ne Matrix von 16 x 16 Punkten 
zur Verfügung - und das mit al- 
len 64 Farben. Mit der integrier- 
ten Textfunktion beschriften Sie 
Ihre Bilder auf einfache Weise. 
Dabei stehen Ihnen neben be- 
liebigen Zeichensätzen (Fonts) 
auch zweifarbige Outline- und 
3D-Schriften zur Verfügung. 
‚Sowie die Text-Funktionen Kur- 
siv- oder Fettschrift und Unter- 
streichen. Mit Hilfe der Lupe 
vergrößern Sie Bildausschnitte 
und gestalten jeden einzelnen 
Bildpunkt (Pixel) nach Ihren 
Wünschen. Das Ergebnis Ihrer 
Malkunst läßt sich über den Me- 
nüpunkt »Drucken« auch zu Pa- 
pier bringen. 

Haben Sie etwas Appetit be- 
kommen? Nun, wir wollen Ih- 


Bild 1. Freihändiges Zeichnen auf dem Bildschirm - erste Schritte mit »Golden Paint Pot« 


nen dieses Super-Programm 

nicht länger vorenthalten und 

präsentieren Ihnen exklusiv 

»Golden Paint Pot«. 

Das Programm besteht aus 
zwei Teilen: 

1. »Golden_Paint__Pot« (Start- 
programm, Listing 1) 

2. »Golden_Paint _Pot _PRG« 
(Hauptprogramm, wird au- 
tomatisch nachgeladen, Li- 
sting 2) 

Sie können beide Listings mit 
Hilfe des Checksummers von 
Seite 126 eingeben oder sich 
die Programmservice-Diskette 
bestellen. Zum Start des Pro- 
gramms brauchen Sie außer- 
dem noch »Amiga-Basic« (von 
Ihrer Extras-Diskette), ferner 


Mit 64 Farben 
geht alles 


folgende »bmaps«, die im sel- 
ben Verzeichnis wie »Golden 
Paint Pot« stehen müssen: 

»diskfont.bmap« 

»dos.bmap« 

»exec.bmap« 

»graphics.bmap« 

»intuition.bmap« 

»layers.bmap« 

Auch diese »bmaps« finden 
‚Sie auf Ihrer Extras-Diskette im 
Verzeichnis Basic-Demos. Soll- 
te das nicht der Fall sein, müß- 
ten Sie sich diese Hilfsprogram- 
me selbst erstellen. Eine Anlei- 
tung hierzu finden Sie im AMI- 
GA-Magazin 1/89 auf Seite 147. 

Wenn alles richtig installiert 
wurde, starten Sie das Pro- 
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gramm durch Anklicken des 

»Golden_Paint_Pot«-Pikto- 
gramms, sofern Sie sich nicht 
alles auf eine bootfähige Dis- 
kette kopiert haben. Für ein pro- 
blemloses Arbeiten mit »Gol- 
den Paint Pot« ist ein Arbeits- 
speicher von 1 MByte erforder- 
lich. Besitzer eines 512-KByte- 
‚Amigas müssen aber dennoch 
nicht auf dieses Programm ver- 
zichten, sollten allerdings mit 
dem Speicherplatz sehr spar- 
sam umgehen (Hinweise im 
Textkasten beachten!) 

Nachdem das Programm ge- 
laden wurde, sind einige Fra- 
‚gen zu beantworten, mit denen 
Sie die Grundeinstellung Ihres 
Malkastens vornehmen: 

Hires oder Lowres? 

Diese erste Frage bezieht 
sich auf die Auflösung des Bild- 
schirms. Voreingestellt ist Low- 
res (320 x 256 Bildpunkte), das 
Sie durch <RETURN> oder 
einen beliebigen Tastendruck 
übernehmen können. Mit <H> 
wählen Sie Hires (640 x 512 
Bildpunkte). ß 
Höhe des Screens (200-512) 

Die zweite Frage steuert die 
Bildschirmhöhe, also die Größe 
Ihrer Arbeitsfläche. Voreinge- 
stellt ist der Wert 256, der sich 
wiederum mit <RETURN> 
übernehmen läßt. Ansonsten 
sind Werte zwischen 200 und 
512 erlaubt. 

Tiefe des Screens 

Diese Angaben beziehen 
sich auf die Anzahl der verwen- 
deten Bitplanes (und damit der 
möglichen Farben). Voreinge- 


stellt ist der Wert 4 (Übernahme 
durch <RETURN>), der für 
viele Anwendungsbereiche aus- 
reichend sein dürfte. Mit dem 
Wert 6 stellen Sie bei Lowres- 
und Interlace-Auflösung den 
Halfbrite-Modus mit 64 Farben 
ein. Bei Hires beträgt die maxi- 
male Farbenzahl 16 bei 4 Bit- 
planes. 

Interlace 

Der Interlace-Modus arbeitet 
mit einer Auflösung von 320 x 
512 Punkten und gestattet bis 
zu 64 Farben, führt aber zu ei- 
nem leichten Flimmern des 
Bildschirms. Mit <J> wird die- 
ser Modus eingestellt, alle an- 
deren Eingaben belassen es 
bei dem zuvor eingestellten 
Hires- oder Lowres-Modus. 
Wollen Sie »UNDO« benützen? 

Die »UNDO«-Funktion ist 
sehr nützlich, wenn Sie soeben 
vorgenommene Zeichenvorgän- 
ge rückgängig machen wollen. 
Dies geschieht durch Drücken 
der ESC-Taste. » UNDO« benö- 
tigt jedoch zusätzlichen Spel- 
cherplatz und ist daher nur bei 
einem Speicherplatz von min- 
destens 1 MByte nutzbar. Sie 
wählen »UNDO« durch Druck 
auf <J>, alles andere bewirkt 
einen Verzicht auf diese Ar- 
beitshilfe. 

Bitte beachten Sie bei dieser 
Abfrage, daß nicht alle theore- 
tisch möglichen Kombinatio- 
nen der Antworten sinnvoll und 
manche auch gar nicht erlaubt 
sind (z.B. 6 Bitplanes bei Hires- 
Auflösung) oder zuviel Spei- 
cherplatz beanspruchen. Über- 
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legen Sie daher vorher genau, 
welchen Modus Sie benötigen. 
Für den Anfang dürfte es am 
einfachsten sein, wenn Sie die 
Voreinstellungen durch <RE- 
TURN> übernehmen. 

Wenn Sie alle Fragen beant- 
wortet haben, so erscheint 
nach einigen Ladevorgängen 
der Startbildschirm und nach 
einer weiteren kurzen Wartezeit 
die Mitteilung: »Fertig! Maus- 

“ knopf drücken«. Haben Sie die- 
se Anweisung befolgt, so ver- 
wandelt sich der Bildschirm in 
die zunächst noch leere Ar- 
beitsfläche von »Golden Paint 
Pot«. Sie sehen auf dem blauen 
Bildschirm lediglich einen 
sternförmigen Mauszeiger. Das 
ist Ihr »Pinsel«, der zunächst 
noch über der »Zeichenfläche« 
schwebt. Wenn Sie die linke 


gendermaßen realisiert: 


dert stehen. 


Hinweise für Amiga-Basic-Programmierer 


Das Programm unterstützt die volle Screen-Breite des Amiga, 
Sie haben keinen störenden Rahmen im Wege. Dies wird durc! 
»layers.library« ermöglicht, die zusätzlich zu den fünf anderen Libra- 
ries benötigt wird. Sie denken jetzt vielleicht: Sechs Libraries in Basic 
das ist doch gar nicht möglich! Bei »Golden Paint Pot« wurde dies fol- 


1) Öffnen der »intuition«-, »exec«- und »layers library«. 

2) Die Bitplanes werden in den neu geöffneten Screen eingebaut und 
alle weiteren Speicherbereiche reserviert. 

3) Nach dem Öffnen des Fensters wird das Layer dieses Fensters 
nach links oben verschoben und auf volle Größe gebracht. 

4) Nun werden diese drei Libraries geschlossen und dann alle Libra- 
ries, außer der »layers.library«, geöffnet. 
Die »exec.library« ist also auch wieder geöffnet, doch leider funktio- 
niert »AllocMem« jetzt nicht mehr. Aber es wurden ja schon alle be- 
nötigten Speicherbereiche reserviert. Da ist nur noch ein Problem: 
Die Workbench liefert uns eine wertvolle Bitplane Speicherplatz. 
Diese geborgte Bitplane können wir ihr nun am Programmende 
nicht wieder zurückgeben. Wenn Sie also genügend Speicherplatz 
haben, lassen Sie der Workbench am besten ihre zweite Bitplane. 
Dazu muß nur die Zeile »MakeBitplanes 1« entfernt werden. Sie fin- 
den diese im vorderen Teil des Programms. Wenn Ihnen eine aber 
zweifarbige Workbench nichts ausmacht (Vorteil: z.B. schnelleres 
Scrolling im LIST-Fenster), dann lassen Sie die Zeile ruhig unverän- 


Maustaste drücken, senkt sich 
der »Pinsel« herab, und durch 
Bewegungen mit der Maus (bei 
immer noch gedrückter Maus- 
taste) malen Sie beliebige Stri- 
che auf Ihre Malfläche (Bild 1). 
Probieren Sie es ruhig einmal 
aus! Lassen Sie die Taste los, 
und bewegen Sie Ihren Maus- 
zeiger an eine andere Stelle 
des Bildschirms. Dort drücken 
Sie wieder die linke Taste und 
malen weiter. 

Eine völlig andere Wirkung 
hat die rechte Maustaste. Mit ihr 
schalten Sie die obere Menülei- 
ste ein, so wie Sie das von der 
Workbench Ihres Amiga ge- 
wöhnt sind. Wenn sich Ihr 
Mauszeiger dabei am oberen 
Bildschirm befindet, sehen Sie 
nicht nur die vier Hauptmenü- 
punkte »Proj«, »Tool«, »Extra« 


Bild 2. 64 Farben und noch mehr - die Gestaltung Ihrer 
Farbpalette im Menüpunkt »Farben ändern«. 
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und »Brush«, sondern entrollen 
an den jeweiligen Stellen auch 
das Pull-Down-Menü, welche 
die verschiedenen Funktionen 
von »Golden Paint Pot« enthal- 
ten. Die Anwahl dieser Funktio- 
nen ist denkbar einfach: Sie be- 
wegen mit Ihrer Maus bei ge- 
drückter rechter Taste einen bal- 
kenförmigen Mauszeiger (oder 
Cursorblock) durch die einzel- 
nen Menüpunkte. Lassen Sie 
an dem gewünschten Menü- 
punkt die rechte Taste los, so ist 
die Funktion eingeschaltet, 
oder es erscheint eine Abfrage 
für weitere Einstellungen. Dies 
kann beim ersten Mal etwas 
dauern. Sollte es aber einmal 
gar nicht klappen, so liegt es 
vermutlich daran, daß die bis- 
herige Funktion nicht ord- 
nungsgemäß abgeschlossen 
wurde. Bitte beachten Sie hier- 
für die Beschreibungen der ein- 
zelnen Punkte. Die Aktivierung 
eines neuen Menüpunktes er- 
kennen Sie an einem kurzen 
‚Aufblinken des Bildschirms. 
Wir wollen das gleich einmal 
ausprobieren: Bewegen Sie zu- 
nächst bei gedrückter rechter 
Taste Ihren Mauszeiger in die 
oberste Zeile des linken Menü- 
punkts »Proj« und dann auf den 
Unterpunkt »Farbe wählen«, 
dann lassen Sie die Taste los - 
es erscheint ein Fenster mit ei- 
ner Auswahl von Farben, je 
nach Ihrer eingangs vorgenom- 
menen Einstellung sind dies 
zwischen zwei und 64 Käst- 
chen. Die derzeit aktive Farbe 
ist hervorgehoben. Eine Textlei- 
ste fordert Sie auf: »Gewünsch- 
te Farbe anklicken«. Mit ihrem 
Mauszeiger suchen Sie sich ei- 
ne neue Farbe aus, indem Sie 
mit dem Cursor darauf zeigen 
und dann die linke Maustaste 
betätigen. Das Fenster ver- 
schwindet, und Ihr Pinsel malt 
mit dieser neuen Farbe. Hat's 
geklappt? Wenn nicht, probie- 
ren Sie es gleich nochmal. Sie 
werden sehen, daß die Auswahl 
dieser wie der übrigen Funktio- 
nen einfach ist und sich von Ih- 
nen rasch auch ohne Nach- 
schlagen in unserer Anleitung 
vornehmen läßt. Wurde ein Me- 
nüpunkt (mit Fenster) verse- 
hentlich angewählt, oder haben 
Sie es sich anders überlegt und 
wollen nichts neu einstellen, so 
klicken Sie einfach außerhalb 
des Fensters auf die Malfläche, 
und alles bleibt beim alten. 
Die nachfolgende Aufstel- 
lung erklärt alle Menüpunkte in 
der im Programm vorgesehe- 
nen Reihenfolge. Sofern nichts 
anderes gesagt wird, gelten 
hierbei die oben genannten all- 
gemeinen Hinweise für Aus- 


wahl, Einstellung und Abbruch. 
Eine Gesamtübersicht über alle 
Funktionen finden Sie in dem 
Textkasten auf Seite 108. 
Menü 1: »Proj« 

In dem Projekt-Menü befin- 
den sich grundlegende Funk- 
tionen wie Laden und Spei- 
‚chern von Bildern und Brushes, 
die Auswahl der Farben, das 
‚Aufrufen eines Disketteninhalts 
sowie die Druckfunktion. 
Farbe wählen 

‚Aus der im Fenster angezeig- 
ten Auswahl wird hiermit, wie 
oben beschrieben, eine neue 
Zeichenfarbe gewählt. Ein Klick 
auf die Zeichenfläche behält 
die alte Farbe bei. 

Farbe ändern 

Dieser Menüpunkt gestattet 
es, die vorhandene Farbpalette 
zu verändern. Warten Sie zu- 
nächst ab, bis ein Piepton er- 
tönt, der Ihnen signalisiert, daß 
die Funktion bereit ist. In einem 
Fenster sehen Sie das Ver- 
zeichnis der verfügbaren Far- 
ben in ein oder zwei Reihen (je 
nach Modus). Daneben in el- 
nem größeren Kästchen die ak- 
tuelle Farbe, im Halfbrite-Modus 
auch die entsprechende Farbe 
der unteren Farbenreihe (Bild 
2). Ein weiteres Kästchen zeigt 
den Grundfarbenanteil Rot (R), 
Grün (G) und Blau (B) der aus- 
gewählten Farbe an. Durch An- 
klicken und Verändern dieser 
drei Balken modifizieren Sie die 
angezeigte Farbe nach Ihren 
Wünschen. Im Halfbrite-Modus 
werden Veränderungen immer 
mit der oberen Farbreihe (Far- 
ben 0 bis 31) vorgenommen. 
Die zweite Reihe (Farben 32 bis 
63) wird dabei entsprechend 
mitbeeinflußt. Es stehen außer 
der Einstellung einzelner Far- 
ben noch weitere Sonderfunk- 
tionen zur Verfügung, die durch 
‚Anklicken mit der linken Taste 
aktiviert werden: 
<=> - Farbverlauf 

Klicken Sie nach Einschalten 
dieser Funktion eine zweite Far- 
be an (in der oberen Farbrei- 
hel). So erhalten Sie zwischen 
dieser und der ersten Farbe Ih- 
rer Palette einen schönen Farb- 
verlauf, aus dem Siesich später 
einzelne Farben aussuchen 
können. 

COPY 

Damit kopieren Sie ein Farb- 
kästchen in ein anderes. Klicken 
Sie dazu erst »Copy« und dann 
auf eine andere als die aktuelle 
Farbe. Dabei wird die aktuelle 
Farbe auf die zweite kopiert und 
nun haben beide Felder die 
gleiche Farbe. 

No! 

Mit diesem Knopf werden die 

alten Farben, also jene Palette, 
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die vor den Veränderungen exi- 
stierte, wiederhergestellt. Sie 
können also ruhig ein wenig 


herumprobieren und dann 
doch zu den ursprünglichen 
Einstellungen zurückkehren. 
Dies funktioniert allerdings nur 
dann, wenn der Menüpunkt 
»Farben ändern« zwischenzeit- 
lich nicht verlassen wurde. 

Sie beenden diesen Menü- 
punkt und übernehmen damit 
die neue Farbenpalette für Ihr 
Bild durch einen Klick auf »OK« 
‚oder auf die freie Zeichenfläche 
außerhalb des Menüfensters. 
Ein dauerhaftes Speichern Ih- 
rer Farbpaletten erreichen Sie 
im Menüpunkt »Speichern Co- 
lormap« (siehe unten). 

Laden Bild 

Hiermit holen Sie sich kom- 
plette Bilder von der Diskette 
auf Ihren Bildschirm. Nach der 
‚Anwahl dieser Funktion er- 
scheint ein Fenster, in dem Sie 
aufgefordert werden, den File- 
namen des zu ladenden Bildes 
anzugeben und mit <RE- 
TURN> zu bestätigen. Ist das 
gesuchte Bild vorhanden und 
entsprechen dessen Farben- 
zahl und Bildschirmmodus Ih- 


Tools 
im Überfluß 


ren momentanen Bildwerten, 
so wird das Bild geladen und 
‚angezeigt. Ansonsten erscheint 
eine Fehlermeldung. System- 
bedingt benötigt der Ladevor- 
gang sowie der Bildaufbau ein 
wenig Zeit, vor allem bei Bildern 
im gepackten Format (Bytei 
Run). Auf der Programmser- 
vice-Diskette sind als Beispiele 
die Bilder »Lowres-Bild« und 
»Hires-Bild« enthalten. Durch 
Drücken der Taste <RE- 
TURN> ohne File-Angabe 
(nicht durch Anklicken der frei- 
en Zeichenflächel) wird dieser 
Menüpunkt vorzeitig und un- 
verrichteter Dinge verlassen. 
Speichern Bild 

Wie beim Menüpunkt»Laden 
Bild« sehen Sie auch hier ein 
Fenster, indem Sie aufgefordert 
werden, den Filenamen des zu 
speichernden Bildes anzuge- 
ben und mit <RETURN> zu 
bestätigen. Ist bereits ein File 
dieses Namens auf der Disket- 
te vorhanden, so erscheint die 
Frage, ob dieses bestehende 
File überschrieben werden soll. 
Mit <J> wird dies veranlaßt, 
jede andere Eingabe bricht den 
Speichervorgang ab. Wurde 
der Menüpunkt versehentlich 
angewählt, oder haben Sie es 
sich zwischenzeitlich anders 
überlegt, so drücken Sie ohne 


vorherige Texteingabe die RE- 
TURN-Taste. 
Laden Colormap 

Dieser Menüpunkt lädt und 
aktiviert eine auf Diskette ge- 
speicherte Farbpalette (Color- 
map), die Sie anschließend 
über die Funktionen »Farbe 
wählen« oder »Farbe ändern« 
wie‘ gewohnt weiterverwenden 
können. Da auch das aktuelle, 
im Arbeitsspeicher befindliche 
Bild sofort an die neuen Farb- 
werte angepaßt wird, lassen 
sich damit unmittelbar komple- 
xe und interessante Variationen 
Ihrer Kunstwerke vornehmen. 
Auf der Programmservice-Dis- 
kette finden Sie als Beispiele 
zwei verschiedene Farbpalet- 
ten (Colormapi und Color- 
map2). Wurde ein falscher Na- 
me eingegeben, so erscheint 
eine Fehlermeldung. Durch 
<RETURN> ohne vorherige 
Eingaben wird dieser Menü- 
punkt abgebrochen. 
Speichern Colormap 

Hiermit speichern Sie eine 
unter der Funktion »Farben än- 
dern« erstellte Farbpalette als 
separates File (kein IFF-For- 
mat). Sie geben einen beliebi- 
gen Namen ein, der automa- 
tisch mit dem Suffix ».col« ver- 
sehen wird. Ist bereits ein File 
dieses Namens auf der Disket- 
te vorhanden, so werden Sie 
gefragt, ob das bestehende File 
überschrieben werden soll. Mit 
<J> wird dies veranlaßt, jede 
andere Eingabe bricht den 
Speichervorgang ab. Auch die- 
se Funktion wird durch <RE- 
TURN> ohne vorherige Einga- 
ben abgebrochen. 
Laden Brush 

Mit Hilfe dieses Menüpunk- 
tes laden Sie einen auf Diskette 
gespeicherten »Brush«, den 
Sie über den Hauptmenüpunkt 
»Brush« (siehe dort) verändern 
und für Ihr Bild verwenden kön- 
nen. Auf der Programmservice- 
Diskette finden Sie als Beispiel 
den Brush »GPP«, der einen 
schönen Schriftzug darstellt. 
Wurde ein falscher Name ein- 
gegeben, so erscheint eine 
Fehlermeldung, die durch An- 
klicken auf der freien Zeichen- 
fläche abbricht. <RETURN> 
‚ohne vorherige Eingaben dient 
zum Abbruch dieses Menü- 
punktes. 
Speichern Brush 

Dieser Menüpunkt speichert 
einen unter dem Menüpunkt 
»Brush« definierten und modifi- 
zierten Bildteil als separates 
»Brush«-File (kein IFF-Format) 
auf Diskette. Sie geben einen 
beliebigen Namen ein, der au- 
tomatisch mit dem Suffix ».brs« 
versehen wird. Ist bereits ein Fi- 


IOGKHW.HOMESCHPUTERWOR.D.SOM 


le dieses Namens auf der Dis- 
kette vorhanden, so werden Sie 
gefragt, ob das bestehende File 
überschrieben werden soll. Mit 
<J> wird dies veranlaßt, jede 
andere Eingabe bricht den 
Speichervorgang ab. Wurde 


Bild 3. So komfortabel gibt »Golden Paint Pot« Inhalts- 


veranlaßt, jede andere Eingabe 
bricht den Vorgang ab. Ein 
eventuell ebenfalls erstelltes Li- 
nienmuster (siehe Menübe- 
reich »Extra«) wird in keinem 
Fall mit abgespeichert, denn es 
ist bei Bedarf schneller neu er- 


H Be 


verzeichnisse Ihrer Daten-Diskette aus 


der Menüpunkt versehentlich 
angewählt, oder haben Sie es 
sich zwischenzeitlich anders 
überlegt, so drücken Sie wie 
üblich (ohne vorherige Textein- 
gabe) die RETURN-Taste. 
Laden Muster 

Hiermit laden Sie ein auf Dis- 
kette gespeichertes »Muster«, 
das Sie bei Füllfunktionen des 
Hauptmenüpunktes »Tool« für 
Ihr Bild verwenden können (sie- 
he dort). Im Menübereich »Ex- 
tra« werden solche Muster er- 
stellt oder verändert. Auf der 
Programmservice-Diskette fin- 
den Sie als Beispiel das Füllmu- 
ster »Mauer«. Wurde ein fal- 
scher Name eingegeben, so er- 
scheint eine Fehlermeldung, 
die durch Anklicken auf der frei- 
en Zeichenfläche abbricht. 


Rasantes 
Amiga-Basic 


<RETURN> ohne vorherige 
Eingaben dient zum Abbruch 
dieses Menüpunktes. 
Speichern Muster 

Mit diesem Menüpunkt spei- 
chern Sie ein unter dem Menü- 
bereich »Extra« erstelltes Bild- 
muster als separates File (kein 
IFF-Format) auf Diskette. Sie 
geben einen beliebigen Namen 
ein, der automatisch mit dem 
Suffix ».mst« versehen wird. 
Existiert bereits ein-File dieses 
Namens auf der Diskette, so 
werden Sie gefragt, ob dieser 
bestehende File überschrieben 
werden soll. Mit <J> wird dies 


stellt als geladen. Wollen Sie 
den Menüpunkt vorzeitig ver- 
lassen, so drücken Sie wie üb- 
lich (ohne vorherige Texteinga- 
be) die RETURN-Taste. 
Laden Font 

Hiermit wird ein Amiga-Zei- 
chensatz (Font) geladen, den 
Sie für Texteingaben verwen- 
den können. Sie werden nach 
dem Font-Namen und der Font- 
Höhe (zum Beispiel »Diamond« 
und »12«) gefragt. Der entspre- 
chende Zeichensatz, den Sie 
von Ihrer Workbench-Diskette 
oder einem speziellen Font- 
Verzeichnis holen können, muß 
sich im aktuellen Fonts-Ver- 
zeichnis befinden. Fehleinga- 
ben führen zu einer entspre- 
chenden Meldung, nach der 
Sie durch Anklicken auf der frei- 
en Zeichenfläche zum Pro- 
gramm zurückkehren. Ein Ab- 
bruch der gesamten Funktion 
ist wie üblich durch <RE- 
TURN > ohne vorherige Einga- 
ben möglich. 
DOS mit Fenster / DOS ohne 
Fenster 

Damit verlassen Sie kurzzei- 
tig das Malprogramm und rufen 
das Amiga-DOS auf. Diese 
Möglichkeit ist oft nützlich, etwa 
zur Ausführung von Befehlen 
wie: 
assign fonts: 
fontdisk: fonts 


Der entsprechende Befehl 
wird in das Abfragefenster ein- 
getragen und mit <RETURN> 
bestätigt (<RETURN> ohne 
Eingabe bewirkt einen Rück- 
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sprung ins Programm). Für 
manche dieser Befehle braucht 
man kein Ausgabefenster, wohl 
aber für »list«, »dir«, »type« usw. 
»Golden Paint Pot« bietet Ihnen 
beide Möglichkeiten. Das hier- 
bei verwendete Ausgabefen- 
ster ist bewußt nicht sehr groß 
gewählt, um Speicherplatz zu 
sparen. Es läßt sich aber recht 
einfach vergrößern. Die ent- 
sprechende Zeile ist in Listing 2 
markiert. Wenn bei der Befehls- 
ausführung etwas schiefgelau- 
fen ist (z.B. Diskette nicht einge- 
legt), protestiert »Golden Paint 
Pot« mit einer Fehlermeldung, 
und Sie gelangen wieder zu- 
rück Ins Programm. 

Bild löschen 

Ein im Arbeitsspeicher be- 
findliches Bild wird nach Aufruf 
dieser Funktion gelöscht, vor- 
her erfolgt jedoch eine Sicher- 
heitsabfrage. Wenn Sie mit 
<J> bestätigen, veranlassen 
Sie den Löschvorgang, jede an- 
dere Angabe bricht diesen Vor- 
gang ab. Auf Diskette gespei- 
cherte Files werden von diesem 
Menüpunkt übrigens nicht be- 
einflußt. Benutzen Sie dazu den 
DOS-Befehl »delete«. 

Drucken 

Nach Anwahl dieses Menü- 
punktes wird Ihr aktuelles, im 
Arbeitsspeicher befindliches 
Bild als Hardcopy auf einem 
Drucker ausgegeben. Voraus- 
setzung hierfür ist, daß Sie el- 
nen grafikfähigen Drucker an- 
geschlossen (und eingeschal- 
tet) haben, und daß Sie über 
das Programm »Preferences« 
(von Ihrer Workbench-Diskette) 
auch die notwendige Drucker- 
anpassung vorgenommen ha- 
ben. Der Einfachheit halbar 
sollten Sie sich »Preferences« 
plus das entsprechende Ver- 
zeichnis »devs« auf Ihre Gol- 
den-Paint-Pot-Diskette kopieren. 
Ferner müssen Sie darauf ach- 
ten, daß auf Ihrer System-Dis- 
kette ein Verzeichnis »system« 
mit dem Programm »Graphic- 
Dump« existiert (ebenfalls auf 
Ihrer Worbench-Disk). Dieses 
Programm wird von »Golden 
Paint Pot« beim Menüpunkt 
»Drucken« aufgerufen und ver- 
anlaßt den Ausdruck Ihres Bil- 
des. Der Vorteil der Verwen- 
dung von »GraphicDump« be- 
steht darin, daß Sie recht gute 
Grafiken erhalten und keinen 
bestimmten Drucker brauchen 
wie bei vielen anderen Basic- 
Programmen. 

Nun müßte eigentlich alles 
klappen, es ist jedoch in jedem 
Fall ratsam, ein zu druckendes 
Bild vorher auf Diskette zu si- 
chern (Menüpunkt »Speichern 
Bild«). Besitzer eines Amiga mit 


nur 512 KByte müssen beim 
Gebrauch der Druckfunktion ei- 
nige zusätzliche Vorsichtsmaß- 
nahmen treffen, weil es hier zu 


Brushes heißt 
das Zaubermittel 


Speicherplatzproblemen kom- 
men könnte (siehe Textkasten). 
Verzeichnis wechseln 

Mit dieser Funktion wird das 
aktuelle (Unter-)Verzeichnis ge- 
wechselt, das Sie für Ihre Lade- 
und Speichervorgänge benöti- 
gen. Der gewünschte Pfadna- 
men muß dabei stets korrekt 
eingegeben werden, z.B.: »dfl: 
Bilder«, Voraussetzung dafür 
ist, daß die gewünschten Ver- 
zeichnisse existieren bzw. auf 
die von Ihnen angegebene Wei- 
se erreichbar sind. Ansonsten 
erscheint eine Fehlermeldung, 
die durch Anklicken auf der frei- 
en Zeichenfläche wieder aus- 
geschaltet wird. Alternativ zu 
diesem Menüpunkt ist ein 
Wechseln des aktuellen Ver- 
zeichnisses selbstverständlich 
auch über den DOS-Befehl 
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»cd« (siehe obiger DOS-Aufruf) 
möglich. 
Inhalt anzeigen 

Damit werden alle Files des 
aktuellen Verzeichnisses (siehe 
vorhergehenden Menüpunkt) 
in einem Textfenster angezeigt 
(Bild 3). Mit <CTRL> + <S> 
(beide Tasten gleichzeitig drük- 
ken!) wird die Anzeige kurzzei- 
tig unterbrochen, und durch ei- 
nen beliebigen Tastendruck 
wieder fortgesetzt. Ein Klick auf 
die freie Zeichenfläche schließt 
das Fenster und führt Sie zu- 
rück zum Hauptprogramm. 
Ende 

Dieser Menüpunkt beendet 
das Programm und bringt Sie 
zum Amiga-Basic-Fenster. Vor- 
her erfolgt jedoch noch eine Si- 
cherheitsabfrage, die Sie mit 
<J> beantworten müssen. Je- 
de andere Eingabe bricht die- 
sen Vorgang ab. Alternativ zu 
diesem Menüpunkt besteht die 
Möglichkeit, das Programm oh- 
ne Sicherheitsabfrage zu ver- 
lassen, wenn Sie <CTRL> + 
<C> drücken. 
Menü 2: »Tool« 

In diesem Menü »Tool« finden 


Hinweise für Amigas mit nur 512 KByte 


Bei 512-KByte-Amigas sollten Sie bei der Arbeit mit »Golden Paint 
Pot« mit dem Speicherplatz stets sparsam umgehen. Am besten ge- 
hen Sie folgendermaßen vor: 

1) Booten der Systemdiskette (nur ein Laufwerk verwenden!) 

2) Sofort nach dem Erscheinen des CLI-Fensters <CTRL D> zum 
Abbruch des Bootvorganges drücken. 

3) Falls nötig, »system/setmap d« eingeben. 

4) AmigaBasic laden, DOS-Fenster so weit wie möglich verkleinern. 

5) Mit dem Basic-Befehl »CHDIR« das Verzeichnis entsprechend än- 
dern, 

6) »Golden Paint Pot« starten. 

7) Für die Screen-Höhe geben Sie am besten ausschließlich den Wert 
»256« ein - auch das spart Speicherplatz. Es gehen aber auch hö- 
here Werte. 

8) Nun wird das Hauptprogramm wie üblich automatisch nachgela- 
den. 

Wurden alle Anweisungen befolgt, so dürften Sie bei der Arbeit mit 
»Golden Paint Pot« eigentlich keine Probleme mehr haben. Lediglich 
beim Ausdruck von Bildern könnte es noch Schwierigkeiten geben, 
deshalb hier ein paar weitere Tips: 

Speichern Sie Ihre Bilder auf jeden Fall vor einem gewünschten 
‚Ausdruck auf Diskette ab! Bei Bildern mit einer Höhe von 256 Pixeln 
empfiehlt sich folgendes Vorgehen: 

1) Absaven und erst einmal Ausdruck ohne besondere Veränderun- 
gen probieren (geht wahrscheinlich in vielen Fällen nicht). 

2) Veranlassen Sie einen Warmstart (<CTRL> <linke Amiga> 
<rechte Amiga>) Ihres Amigas und führen Sie danach die obigen 
Punkte 1 bis 4 durch. 

3) Laden Sie nun das Startprogramm »Golden._Paint _Pot«, 

4) Ändern Sie im LIST-Fenster dieses Ladeprogramms die CLEAR- 
Anweisung auf den Wert »3500«. 

5) Schließen Sie das LIST-Fenster und starten Sie das Programm mit 
RUN. 

6) Laden Sie jetzt wieder Ihr gespeichertes Bild (nichts mehr daran 
verändern!). 

7) Wählen Sie den Menüpunkt »Drucken« (vorher Drucker anschlie- 
Ben undeinschalten nicht vergessen!) - nun sollten Sie bald Ihr Bild 
auf dem Papier bewundern können. 

Wenn Sie anschließend wieder mit dem Programm weiterarbeiten 
wollen, sollten Sie die Systemdiskette nochmals booten. 
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Sie verschiedene Werkzeuge 
oder Edit-Funktionen Ihres Mal- 
programmes, die sich weitge- 
hend auch selbst erklären und 
mit denen Sie ruhig herumpro- 
bieren sollten. Die momentan 
eingestellte Funktion wird 
durch ein Häkchen im Pull- 
Down-Menü angezeigt. Nach 
der Anwahl eines Menüpunktes 
signalisiert Ihnen jeweils ein 
kurzes Aufblinken des Bild- 
schirms, daß die entsprechen- 
de Funktion einsatzbereit ist. 
Wenn beim Programmstart 
»UNDO« eingeschaltet wurde, 
löscht <ESC> alle Malvorgän- 
ge seit diesem letzten Blinken. 
Frei Hand Strich 

Dies ist der übliche, beim 
Programmstart standardmäßig 
eingestellte schmale Pinsel, mit 
dem Sie »freihändig« beliebige 
Striche, Kurven oder Figuren 
auf die Zeichenfläche malen. 
Die dabei verwendete Zeichen- 
farbe wird im »Proj«-Menü unter 
„Farbe wählen« bestimmt. 


Frei Hand Dots 

Anstelle eines durchgehen- 
den Striches werden mit dieser 
Funktion beliebige gepunktete 
Striche gezeichnet. 
Spray 

Ein breiter Punktestrahl hat 
die Wirkung einer Spraydose 
und macht Sie zum Graffiti- 
Künstler auf Ihrem Amiga. 


Radiergummi klein 

Mit der momentan eingestell- 
ten Zeichenfarbe »radieren« Sie 
mit einem breiten Streifen auf 
der Malfläche, Gegebenenfalls 
sollten Sie vorher die aktuelle 
Hintergrundfarbe als Malfarbe 
für Ihren Radiergummi definie- 
ren (in Menüpunkt »Farbe wäh- 
len«). 
Radiergummi groß 

Hier ist der Radierpinsel 
noch dicker und färbt Ihnen im 
nu große Bildschirmflächen 
um. 
Linie 

Um gerade Linien’zu zeich- 
nen, ist der »Frei Hand Strich« 
zu umständlich. Einfacher und 
besser geht's mit dieser Funk- 
tion: Nach dem Anwählen be- 
wegen Sie Ihren Mauszeiger an 
die Stelle der Zeichenfläche, 
bei der die Linie beginnen soll. 
Bei gedrückter linker Maustaste 
bewegen Sie den Zeiger zum 
gewünschten Endpunkt und 
lassen die Taste wieder los. 
Während Sie den Mauszeiger 
zur Endposition ziehen, ist die 
spätere Linie schon sichtbar. 
Sie wird aber erst nach Loslas- 
sen der Taste endgültig einge- 
zeichnet, so daß Sie zuerst aus- 
probieren können, ob die Linie 
Ihren Vorstellungen entspricht. 
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Linienstern 

Diese Funktion dient zum Er- 
stellen sternförmiger Figuren, 
die aus einzelnen nebeneinan- 
derliegenden Linien aufgebaut 
sind. Im Unterschied zur vor- 
herigen Funktion werden dabei 
jedoch die Linien sofort auf die 
Malfläche übertragen. Durch 
Drehbewegungen und Verlän- 
gern oder Verkürzen der Linien 
lassen sich ganz unterschiedli- 
che Sterne erzeugen. 
Linien 

‚Anders als bei der einfachen 
Linienfunktion wird bei Anwahl 
dieses Menüpunktes am Ende 
einer Linie sofort eine neue be- 
gonnen. Zum Ausprobieren 
drücken Sie an einer beliebigen 
Stelle Ihrer Malfläche kurz auf 
die linke Maustaste, danach be- 
wegen Sie die Maus (ohne die 
Taste gedrückt zu halten!) an ei- 
ne andere Stelle und drücken 
nochmal: es erscheint eine Li- 
nie zwischen den beiden Klick- 
punkten. Nun fahren Sie mit Ih- 
rem Zeiger zu einer dritten Stel- 
le und drücken erneut: die jetzt 
erscheinende zweite Linie 
schließt direkt an die erste an. 
‚So geht esfort, bis Sie durch ei- 
nen Doppelklick Ihre Linienfi- 
gur abschließen. Danach kann 
ein neuer Anfangspunkt für ei- 
ne zweite Figur bestimmt oder 
im Menü »Tool« ein anderes 
Werkzeug gewählt werden. 
Polygon 

Diese Funktion arbeitetin der 
gleichen Weise wie die obigen 
»Linien«, allerdings wird die er- 
stellte Figur am Ende, also 
nach dem Doppelklick, mit der 
aktuellen Zeichenfarbe ausge- 
füllt, Erst nach Abschluß durch 
einen Doppelklick ist ein ande- 
res Malwerkzeug anwählbar. 
Das Polygon darf höchstens 18 
Ecken haben, danach wird es 
automatisch ausgefüllt. 
Rechteck 

Für Quadrate und Rechtecke 
sind sowohl die Freihand- wie 
die Linienfunktionen ungeeig- 
net. Statt dessen bedienen wir 
uns dieser Sonderfunktion. Mit 
Ihrem Mauszeiger bestimmen 
Sie zunächst eine Ecke Ihres 
Vierecks. Bei gedrückter linker 
Maustaste ziehen Sie Ihren 
Mauszeiger in eine beliebige 
zweite Position und legen da- 
durch die gegenüberliegende 
Ecke sowie die Größe des Vier- 
ecks fest. Nach dem Loslassen 
der Maustaste wird die vorher 
nur angedeutete Figur auf die 
Zeichenfläche fixiert. 
Rechteck gefüllt 

Soll das Rechteck nicht nur 
als Umriß, sondern als farbige 
Fläche erscheinen, so ist diese 
Funktion Zu benützen. Die Be- 


dienung geschieht in gleicher 
Weise wie bei der vorherigen 
Funktion. Bitte beachten Sie, 
daß für das Ausfüllen stets die 
aktuelle Zeichenfarbe benutzt 
wird, die Sie gegebenfalls vor- 
her neu bestimmen sollten. 
Kreis 

Ebenso einfach wie die vor- 
her erläuterten Vierecke und 
Polygone erstellen Sie hiermit 
Kreise beliebiger Größe. Dabei 
legen Sie mit Ihrem Mauszeiger 
zunächst den Mittelpunkt des 
gewünschten Kreises fest. Bei 


gedrückter linker Maustaste 
ziehen Sie danach Ihren Maus- 
zeiger in eine beliebige zweite 
Position (bitte nicht zu schnell 
bewegen!) und bestimmen da- 
durch den Kreisdurchmesser, 
wobei die spätere Figur schon 
umrißartig aufblinkt. Nach dem 
Loslassen der Maustaste fixie- 
ren Sie diesen Kreis endgültig 
auf Ihrer Zeichenfläche. Wollen 
Sie Ihre Kreisfläche mit einer 
Farbe oder einem Muster aus- 
füllen, so benützen Sie die 
Funktion »Färben«. 


Ellipse 

Wie bei der Funktion »Kreis« 
definieren Sie hier zunächst 
den Mittelpunkt der gewünsch- 
ten Ellipse. Bei gedrückter lin- 
ker Maustaste ziehen Sie da- 
nach Ihren Mauszeiger in eine 
beliebige zweite Position und 
bestimmen dadurch Größe, La- 
ge und Form der Figur. Die zu- 
nächst nur umrißartig aufblinkt 
und nach dem Loslassen der 
Maustaste auf Ihrer Zeichenflä- 
che fixiert wird. Um Ihre Ellipse 
mit einer Farbe oder einem Mu- 


Iden Paint Pot - Alle Menüs auf einen Blick 


PROJ TOOL EXTRA BRUSH 
Farbe wählen Frei Hand Strich Muster Edit Brush holen 
Farbe ändern Frei Hand Dots Muster Reset Brush setzen 
Laden Bild Spray Linie Edit Brush invers 
Speichern Bild Radiergummi klein Linie Reset Brush -OR- 
Laden Colormap Radiergummi groß Normal Brush -XOR- 
Speichern Colormap Linie Outline Brush -AND- 
Laden Brush Polygon 3 D-Print Brush >X < 
Speichern Brush Rechteck JAM 1 Brush > Y< 
Laden Muster Rechteck gefüllt JAM 2 

Speichern Muster Kreis Normal 

Laden Font Ellipse Unterstrichen 

DOS mit Fenster Füllen Fett 

DOS ohne Fenster Färben Kursiv 

Bild löschen Lupe 

Drucken Texteingabe 

Verzeichnis 

wechseln 

Inhalt anzeigen 

Ende 


Tabelle 1. Das reichliche Menü von »Golden Paint Pot« läßt ahnen, was in ihm steckt 


Bild 4. 
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it der Lupe gestalten Sie einzelne Pixel nach Ihren Wünschen 
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ster auszufüllen, benützen Sie 
die Funktion »Färben«. 
Füllen 

Diese Funktion füllt den Bild- 
schirm oder Teile davon mit der 
aktuellen Zeichenfarbe bis zu 
einer Randfarbe aus, die Sie 
vorher in einem Requester - 
ähnlich wie bei dem Menü- 
punkt »Farbe wählen« - definie- 
ren müssen, wobei Ihnen vom 
Programm die aktuelle Zei- 
chenfarbe vorgeschlagen wird. 
Sie verlassen diesen Reque- 
ster durch Anklicken der freien 
Zeichenfläche außerhalb des 
Request-Fensters, Durch einen 
weiteren Klick an der auszufül- 
lenden Stelle Ihres Bildes wird 
der Vorgang schließlich ausge- 
führt, Haben Sie Im Menü »Ex- 
tra« ein Füllmuster erstellt bzw. 
ein bereits bestehendes Muster 
von der Diskette geladen (siehe 
Menübereich »Proj«), so wird 
statt der Zeichenfarbe dieses 
Muster zum Ausfüllen verwen- 
det. Mit dem auf der Programm- 
service-Diskette enthaltenen 
Beispiel »Mauer« gestalten Sie 
so auf denkbar einfache Weise 
eine Umrandung Ihres Bildes 
oder eine geschlossene Mauer- 
fläche. 
Färben 

Auch »Färben« ist eine Füll- 
funktion für die aktuelle Zei- 
chenfarbe oder ein definiertes 
Füllmuster. Im Unterschied zur 
Funktion »Füllen« wird hier der 
Vorgang jedoch sofort ge- 
stoppt, wenn irgendeine an- 
dersfarbige Fläche erreicht 
wird. Damit ist es also problem- 
los möglich, Kreise, Vierecke 
oder andere Figuren einzufär- 
ben. 
Lupe 

Manchmal reichen die übli- 
chen Zeichenfunktionen nicht 
aus, etwa dann, wenn Sie bei 
Ihrem Bild gezielt einzelne Bild- 
punkte (nach)bearbeiten möch- 
ten. Für diese Zwecke steht Ih- 
nen mit dieser Lupenfunktion 
ein Ideales Werkzeug zur Verfü- 
gung. Nach dem Anwählen des 
Menüpunktes erhält Ihr Maus- 
zeiger zunächst ein kleines 
rechteckiges Anhängsel. Das 
ist die Lupe, mit der Sie sich ei- 
nen beliebigen Bildausschnitt 
auswählen können. Sie bewe- 
‚gen dazu die Lupe einfach über 
diesen Bildteil und drücken an- 
schließend auf die linke Maus- 
taste. In einem Fenster sehen 
Sie daraufhin diesen Bildaus- 
schnitt in starker Vergrößerung 
‚(Bild 4). Darüber erscheint eine 
Farbpalette, aus der Sie sich 
wie gewohnt eine Malfarbe 
wählen. Damit tragen Sie dann 
im Lupenbild durch Druck auf 
die linke Maustaste einzelne 


farbige Pixel ein. Das Ergebnis 
Ihrer Arbeit wird auch in dem 
Fenster rechts oben in normaler 
Größe sichtbar. Durch einen 
Klick auf die Zeichenfläche au- 
Berhalb des Fensters wird die 
Lupe wieder verlassen. Sie 
können dann einen weiteren 
Bildausschnitt wählen und un- 
ter der Lupe bearbeiten oder 
sich einen anderen Menüpunkt 
aussuchen. Vor der Anwahl ei- 
nes neuen Werkzeugs besteht 
auch hier noch die Möglichkeit, 
mit der »UNDO«-Funktion, falls 


S enssLagen unt-Speich 
Nıkesn Siönänder Fenster-Rahnen_nehr 
\Nalkelsängigen Formate außei HAM- 
ce KurtIon vor 
undvertöße kleine Venbessarungen 
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»Proje und »Extra« weitere 
Funktionen zur Verfügung. 
Menü 3: »Extra« 

Dieses Zusatzmenü dient für 
die Erstellung von Füllmustern 
und Linien sowie für die Defini- 
tion von Parametern der Text- 
ausgabe. Bei den drei unteren 
Blöcken von Menüpunkten wird 
die momentan eingestellte 
Funktion durch ein Häkchen im 
Menüfenster angezeigt. 
Muster Edit 

In diesem Menüpunkt editie- 
ren Sie ein für die Funktionen 


amtsgziert 


Bild 5. Mit den umfangreichen Funktionen von »Golden Paint 
Pot« sind komplexe Bilder schnell erstellt 


eingestellt, alle vorgenomme- 
nen Änderungen wieder rück- 
gängig zu machen. 
Texteingabe 

Um Ihre Bilder mit Text zu 
versehen, wählen Sie diesen 
Menüpunkt an. Mit Ihrem 
Mauszeiger und einem Klick 
auf die linke Maustaste legen 
Sie den gewünschten Anfangs- 
punkt Ihres Textes fest, den Sie 
anschließend über die Tastatur 
eingeben. Das Ende einer Text- 
zeile wird mit <RETURN> ab- 
geschlossen. Danach bestim- 
men Sie mit dem Mauszeiger 
den Anfangspunkt einer neuen 
Zeile oder kehren zur Auswahl 
eines anderen Werkzeugs in 
das »Tool«-Menü zurück. Bitte 
beachten Sie, daß ein Löschen 
einzelner Buchstaben nicht wie 
bei einem normalen Texteditor 
mit der DEL-Taste erfolgen 
kann. Statt dessen läßt sich 
nach <RETURN> über die 
»UNDO«-Funktion der ESC- 
Taste, falls eingestellt, der ge- 
samte seit der Anwahl der 
Funktion »Texteingabe« einge- 
gebene Text wieder rückgängig 
machen. Für die Gestaltung Ih- 
rer Textzeichen (Font, Fett- 
schrift, Outline usw.) stehen Ih- 
nen in den Menübereichen 
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»Füllen« und »Färben« ver- 
wendbares Muster mit Hilfe ei- 
ner Matrix von 16 x 16 Punkten. 
Dafür dürfen Sie, je nach 
Grundeinstellung, alle zwei bis 
64 Farben verwenden, Die Be- 
dienung dieses Editors erfolgt 
in gleicher Weise wie die Lu- 
penfunktion des »Tool«-Menüs. 
Sie verlassen den Editor durch 
einen Mausklick auf die Zei- 
chenfläche. Um diese Muster- 
funktion zu testen, verwenden 
Sie am besten einmal als Unter- 
grund die Hintergrundfarbe. Als 
Zeichenfarbe wählen Sie im 
Halfbrite-Modus die Farbe 63 
(ganz rechts unten). Wenn Sie 
mit dem Unterpunkt »Farben 
ändern« des »Proj«-Menübe- 
reichs Ihre aktuelle Farbpalette 
modifizieren, so ändern sich 
automatisch auch die Farben 
dieses Musters, womit neue, in- 
teressante Effekte erzielt wer- 
den. Lassen Sie sich doch ein- 
mal überraschen! Damit Sie 
fertige Muster nicht jedesmal 
neu erstellen müssen, bedie- 
nen Sie sich der dafür vorgese- 
henen Speicherfunktion im 
»Proj«-Menü. Auf der Programm- 
service-Diskette finden Sie 
auch ein schon vorgefertigtes 
Füllmuster (Filename »Mauer«), 


das Sie nach dem Laden in die- 
sem Menüpunkt vergrößert be- 
trachten und nach Wunsch ver- 
ändern können. Bitte beachten 
Sie, daß die in diesem Menü- 
punkt zuletzt gewählte Farbe 
automatisch auch zur aktuellen 
Zeichenfarbe wird. 
Muster Reset 

Nach Anwahl dieses Menü- 
punktes wird das für Füll- oder 
Färbevorgänge benutzte Mu- 
ster wieder normal, also ledig- 
lich mit der jeweiligen aktuellen 
Zeichenfarbe gefüllt. Das im 
Fenster von »Muster Edit« dar- 
gestellte Muster geht aber da- 
durch nicht verloren und läßt 
sich nach erneute Anwahl und 
Bestätigung wieder aktivieren. 
Anders ausgedrückt heißt das, 
Sie schalten mit diesen beiden 
»Muster«-Funktionen zwischen 
einem normalen (nur Zeichen- 
farbe) und einem komplexen, 
individuell erstellten Füllmuster 
hin und her. 
Linie Edit 

‚Analog zu der Funktion »Mu- 
ster Edit« steht Ihnen hier ein 
Editor für die Definition von (un- 
terbrochenen) Linien zur Verfü- 
gung. Dabei sind jedoch ledig- 
lich zwei Farben möglich. In ei- 
nem Fenster, bestehend aus 16 
Kästchen (Bildpunkten), knip- 
sen Sie mit Ihrer linken Mausta- 
ste einzelne Pixel an oder aus. 
Das Ergebnis überprüfen Sie 
mit der Funktion »Linie« im Me- 
nü »Tool« oder auch bei der Er- 
stellung von Rechtecken, Li- 
niensternen usw. 
Linie Reset 

Nachdem diese Funktion an- 
gewählt wurde, wird wieder auf 
die normalen, also durchgezo- 
genen Linien umgeschaltet. 
Ähnlich wie bei »Muster Reset« 
geht aber die vorher definierte 
Linie nicht verloren und läßt 
sich nach erneuter Anwahl und 
Bestätigung wieder aktivieren. 


Normal / Outline / 3D-Print 

Diese drei Menüpunkte die- 
nen zur Modifizierung der Text- 
darstellung. Sie werden erst 
wirksam, wenn Sie beim Menü- 
bereich »Tool« Text in Ihr Bild 
eintragen. Probieren Sie diese 
Möglichkeiten einfach aus. Das 
Ergebnis wird Ihnen mehr sa- 
gen, als wir hier beschreiben 
könnten. Bei »Outline« und»3D- 
Print« wird Ihnen aus der ver- 
fügbaren Farbpalette eine 
Zweitfarbe vorgeschlagen. Ein 
Klick auf die Zeichenfläche 
übernimmt diesen Vorschlag. 
Es steht Ihnen aber natürlich 
auch frei, auf die schon aus an- 
deren Menüpunkten gewohnte 
Weise eine andere Zweitfarbe 
zu wählen. 
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JAM1 / JAM2 

Diese beiden Funktionen ha- 
ben nur mit dem Menüpunkt 
»Texteingabe« aus TOOL-Menü 
Bedeutung. Wobei »JAM1« der 
normal bekannten Textfunktion 
entspricht und »JAM2« die Vor- 
dergrundfarbe mit der Hinter- 
grundfarbe übermalt, so daß 
der Text immer in einem Kasten 
der Hintergrundfarbe darge- 
stellt wird.»JAM2« wird automa- 
tisch ausgeschaltet, wenn 
»Outline« oder »3D-PRINT« ge- 
wählt wurde. 


Normal / Unterstrichen / Fett / 
Kursiv 

Hiermit bestimmen Sie eben- 
falls die Darstellungsweise von 
Textzeichen. Auch bei diesen 
vier Menüpunkten sehen Sie al- 
lerdings erst dann eine Wir- 
kung, wenn Sie beim Menübe- 
reich »Tool« einen Text einge- 
ben. Wird ein neuer Font gela- 
den (Menü »Proj«), so wird hier 
automatisch auf »Normal« um- 
geschaltet. 


Menü 4: »Brush« 

Ein »Brush« ist ein beliebiger 
Bildausschnitt, der zum Pinsel 
wird und für ganz überraschen- 
de Effekte sorgt, die beim Ma- 
len mit Papier und Farbe völlig 
undenkbar wären. Die dafür be- 
nötigten Funktionen (mit Aus- 
nahme der Lade- und Speicher- 
vorhänge (siehe »Proj«-Menü)) 
sind in diesem Bereich zusam- 
mengefaßt. Die jeweils aktiven 
Funktionen des oberen Blocks 
dieser Punkte werden durch 
Häkchen markiert. 


Brush holen 

Nach Anwahl dieses Menü- 
punktes verhält sich Ihr Maus- 
zeiger ähnlich wie bei der Funk- 
tion »Rechteck« des »Tool«- 
Menüs, d. h. Sie bestimmen da- 
mit auf Ihrem Malblatt eine vier- 
eckige Fläche beliebiger Grö- 
Be, die nach Loslassen des lin- 
ken Mausknopfes fixiert wird. 
Diese Fläche wird allerdings 
hier nicht umrandet, sondern 
als Brush »geholt«. Dies bedeu- 
tet, daß der gesamte Bildaus- 
schnitt in einen Zwischenspei- 
cher kopiert wird und abrufbe- 
reit zur Verfügung steht. Wenn 
der verfügbare Arbeitsspeicher 
dafür nicht ausreicht (5000 Byte 
sollten schon noch übrig blei- 
ben), meldet sich das Pro- 
gramm mit einem Piepser. Nur 
dann, wenn Sie einen Brush tat- 
sächlich aufgenommen haben, 
können Sie diesen auch auf 
Diskette speichern. Wundern 
Sie sich also nicht, wenn »Spei- 
chern Brush« im Menübereich 
»Proj« einmal nicht funktionie- 
ren sollte. 


Bild 6. Auch zum Nachbearbeiten von digitalisierten Bildern eignet sich dieses Programm 


Kurzinfo: Golden Paint Pot 


Programmart: 
Modus 
Laden: 


Malprogramm in Basic mit Halfbrite- 


durch das Startprogramm (Listing 1) 


bzw. von bootfähiger Diskette 


Start: 
Steuerung: 


automatisch über das Startprogramm 
über vier Menübereiche (mit rechter 


Maustaste einschalten) 


Besonderheiten: 


64 Farben im Halfbrite-Modus, umfang- 


reiche Zeichenfunktionen, Lupe, 
Füllmuster, Brush, Ausdruck über 
»GraphicDump« 


Programmautor: 


Angela Schmidt 


Brush setzen 

Ein mit der vorherigen Funk- 
tion geladener oder selbst aus- 
geschnittener Brush wird auf 
die Zeichenfläche Ihres Bild- 
schirms gebracht. Nach der An- 
wahl dieses Menüpunktes 
»hängt« der Brush an Ihrem 
Mauszeiger und wird durch ein- 
fachen Mausklick positioniert. 
Fahren Sie bei gedrückter 
Maus über den Bildschirm, so 
wird der Brush laufend gesetzt, 
wodurch sich ungewöhnliche 
Effekte erzeugen lassen, wel- 
che Sie sicher begeistern. 
Brush invers 

Ein vorher definierter Brush 
wird in invertierter, also in farb- 
lich negativer Darstellung auf 
die Zeichenfläche gebracht. 
Die Bedienung erfolgt wie bei 
»Brush setzen«. Die Invertie- 
rung wird durch erneute An- 
wahl rückgängig gemacht. 


110 WWW HOMSSOMUTERWORLS:COM 


Brush -OR- / Brush -XOR- / 
Brush -AND- 

Diese drei Brush-Modi ent- 
sprechen den verschiedenen 
Arten des Basic-Befehls »PUT« 
(siehe auch Basic-Handbuch): 

Bei »OR« werden Brush und 
Hintergrund durch eine logi- 
sche Oder-Relation verknüpft, 
d. h. der Brush-Ausschnitt wird 
vollständig in den Hintergrund 
kopiert. 

»XOR« bewirkt ebenfalls, daß 
der Brush in die Bildfläche 
übertragen wird. Wo aber vor- 
her schon etwas gezeichnet 
wurde, wird der Brush invertiert 
dargestellt, 

Durch »AND« wird nur jene 
Verknüpfung zwischen dem 
Brush und der Bildfläche dar- 
gestellt, die bei der logischen 
Und-Verknüpfung beider Teile 
übrigbleiben. Es entstehen da- 
bei unglaubliche Mischeffekte. 


Brush >X < /Brush >Y< 
Nach Anwahl einer dieser 
beiden Hilfsfunktionen wird ein 
definierter Brush horizontal (auf 
der X-Achse) oder vertikal (auf 
der Y-Achse) gespiegelt. Die- 
ser Vorgang wird in einen »Mir- 
ror«-Fenster links oben auf Ih- 
rem Bildschirm dargestellt. Da- 
nach steht Ihnen der Brush wie 
gewohnt zur Verfügung. 
Der letzte Schliff 

Abschließend noch ein paar 
ergänzende Hinweise für die 
perfekte Bedienung von »Gol- 
den Paint Pot«: 

Um sicherzugehen, daß Ih- 
nen nicht versehentlich Bilder 
verlorengehen oder, etwa bei 
einer Veränderung der Farbpa- 
lette, in unerwünschter Weise 
beeinflußt werden. Sollten Sie 
diese zwischendurch auf Dis- 
kette speichern. Am besten le- 
gen Sie sich hierzu auch eine 
eigene Datendiskette an. 

Das Programm kann ein auf 
Diskette befindliches Bild nur 
dann laden, wenn es sich um 
eine Datei im IFF- oder IBLM- 
Format handelt, und wenn die 
horizontale Auflösung der ge- 
speicherten Grafik mit der Ihrer 
momentanen Zeichenfläche 
übereinstimmt. Grundsätzlich 
lassen sich daher mit »Golden 
Paint Pot« nur 320 bzw. 640 Pi- 
xel breite Bilder laden. Außer- 
dem darf das zu ladende Bild 
höchstens so viele Bitplanes 
haben wie Ihre Zeichenfläche. 
Alle anderen Grafiken führen zu 
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einer Fehlermeldung. Umge- 
kehrt lassen sich von »Golden 
Paint Pot« erstellte Bilder auch 
mit anderen Programmen, z.B. 
»DiskMaster« oder »Butcher« 
verarbeiten. Auch »Deluxe 
Paint« kann diese Bilder laden, 
allerdings werden bei »DPaint 
Il« die Halfbrite-Farben 32 bis 
63 in die Farben O bis 31 um- 
gewandelt. 

Eine Colormap (Farbpalette), 
ein Muster oder einen Brush 
dürfen Sie stets unabhängig 
von der gewählten Screen- 
Tiefe und -Breite laden. Wenn 
Ihre Zeichenfläche jedoch über 
weniger Bitplanes verfügt als 
das zu ladende Objekt, kommt 
es meist zu Farbveränderun- 
gen. Da ja nicht mehr alle Bit- 
planes des Objekts berücksich- 
tigt werden können. 

Das Aussehen eines Füllmu- 
sters oder eines Brush hängt 
immer von Ihrer momentanen 
Colormap ab, denn beim Spei- 
chern von Muster bzw. Brush 
wird diese ja nicht mit auf Dis- 
kette gespeichert. Es empfiehlt 


auch diese Colormap separat 
abzuspeichern. 

Weil es aus programmtechni- 
schen Gründen nicht möglich 
ist, das Screen-Format wäh- 
rend des laufenden Pro- 
gramms zu wechseln, müssen 
‚Sie dann, wenn Sie Ihre Grund- 
einstellungen neu definieren 
wollen, das Programm been- 
den und dann wieder neu star- 
ten. Dafür muß übrigens nicht 
das Startprogramm neu gela- 
den werden, es genügt viel- 
mehr ein schlichtes »RUN«. 
Vielleicht finden Sie aber auch 
eine Lösung, die diese kleine 
Mühe umgehen hilft. Wir wür- 
den uns über einen entspre- 


chenden Vorschlag sehr 
freuen. 
Die »UNDO«-Funktion der 


ESC-Taste sollte aus Sicher- 
heitsgründen nur bei minde- 
stens 1 MByte RAM-Speicher 
benützt werden. Es wird da- 
durch eine Kopie des Bild- 
schirms im Hintergrund ange- 
legt, welche sich nur dann er- 
neuert, wenn der Bildschirm 


Listings 


Dies geschieht automatisch 
dann, wenn Sie eine neue 
Funktion der Menübereiche 
»Tool«e oder »Brush« (außer 
Brush >X< und Brush >Y<) 
anwählen. Wollen Sie einen be- 
stimmten Bildschirminhalt aber 
einmal von Hand zwischen- 
speichern, so genügt es, die 
HELP-Taste zu drücken, auch 
danach blinkt der Bildschirm 
kurz auf. Mit der ESC-Taste ho- 
len Sie sich später diese Kopie 
Ihres Malblattes schlagartig 


wieder auf den Bildschirm zu- 
rück. Diese beiden Tasten 
(<HELP>, <ESC>) funktio- 
nieren nur dann, wenn eine 
Funktion ganz abgeschlossen 
ist. 
Das war's. Ich hoffe, Sie kön- 
nen sich ebenso für »Golden 
Paint Pot« begeistern wie ich. 
Und nun wünsche ich Ihnen 
viel Spaß und Erfolg mit Ihren 
Kunstwerken. Wer weiß, was 
Kandinsky mit diesem Pro- 
gramm gemacht hätte. pe 


Golden Paint Pot 


A500, A1000, A2000 mit Kickstart 
1.28&13 


‚AmigaBasic 


Startet Golden__Paint__Pot.prg. 


Ihres Malkastens, 


Listing 1. »Golden_Paint__Pot«. Das Startprogramm 


sich daher gegebenenfalls ohne piepsen kurz aufblinkt. 
Programmname: Golden__Paint _Pot.prg 
Computer: A500, A1000, A2000 mit Kickstart 
1.2&13 
Sprache: Amigabasic 


'ogramnautor: Angels Schni. 


X SH0 PRIN? "HiRe 
=UCASES(INPUTS(1)):IF r8< >CHRS(13) 
PRINT 78 ELSE PRINT 
INPUT "Höhe des Screens 200 


",Hoehe 


PRINT "Interlace I 


POKER 
POKE PEEKL 


IF uJ= 


CLEAR „5000084 
CLS:WINDON 1," 
S&-=PEEKL(WINDOW(7)+46) 


InterlaceBtt=-( 
Hiresait 
ode: 
Breite=320*(Hir 


(H) oder LowRes (( 


INPUT "Tiefe des Soreens ( 


(INPUTS(1)):IF i$<>cH 
PRINT "Wollen Sie UNDO benützen 


R$(13) THEN PRINT 35 


GKj IF t<=0 OR t>6 OR t>4 AND 
10.hy IF Hoehe<200 OR Hoehe>512 TH 
11 OP IF Hoehe>256 THEN i=1 
KL(WINDOR(7)+48)+338, Hose 
WINDOW (7)+46)+340,% 

POKE PEEKL(KINDOH(7)+46)+341,u+2#i+4#h 

* THEN gri=(1x40x(1ch)3i 

IF FRE(-1)>500000& THEN gr&=2#gr& 
'&:DEFINT a-2 


341) AND 1) 
K(S%+341) 
((PEEK(S&+341) AND 4)=4) 


stige 


HiresBit+i+2#Interlacenit 
2) 


Ib: 


Allocem& LIBRARY 


e,1,mode 


(ON Executek LIBRARY 
[ON xOpen& LIBRARY 
'ON xReadk LIBRARY 
xuritek LIBRARY 
N Lock& LIBRARY 
kBenchTofrontk LIBRARY 
WBenchToBackk LIERARY 


7S( "000 +HEXS(PEEKW(PEERL 


n genügend Speicher vorhanden, 


RINT "Angela Schmidt” 
RINT Neu-Ulm” 


‚(HINDOW(7)+46)+48)44)+(2%x))) 3) 
=6)«{(£ MOD 32) 
INT(2/32))#32)-(Tiefe< >6)*(NaxFarben-1-2) 


Listing 2. »Golden_Paint _Pot _PRG«. Das Haupt- 
programm - wird automatisch nachgeladen. 
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| 


\\VienportbePBBKL(WINDOG(7)+46) +44 


EXT 4 


wi DIM ROB(31,3)‚Brush(1),Inp$(2,2) ‚Lup(194) 


RR IF UmdoBAt THEN DIN undo(gr&) 
Ö NEN 1, 0,1, "Prog 

$ |NENU 1, 1,1, "Farbe wählen 

[MENU 1, 2,1, "Farbe ändern 

1, 3,1,"laden Bild 

1, 4,1, "&peichern Bild 

4, 3,1,"Laden  Colornap 

EN 1, 6,1, Speichern Colormap 

NEN! 1, 7,1, ”Iaden Brush 

iQ MENU 1, 8,1, "Speichern Brush 

MENU A, 9,1, "laden Muster 

MENU 1,10,1, "Speichern Nuster 

MENU 1,11, 1, *Laden Font 

MENU 1,12,1, 008 mit Fenster 

Rö MENU 1,13,1, "008 ohne Fenster 

MENU 1,14,1, "Bild löschen 

|NENU 1,15,1, "Drucken 

3 naNU 1,16,1, "Verzeichnis wechseln 

93 0 KEN 1,174, "Inhalt anzeigen 
MENU 1,18,1, "Ende 

0,1, "Tool" 

1,2,” Frei Hand Strich ” 

2,1,” Frei Hand Dots ” 

3,1," Spray R. 

4,1," Radiergunmi klein” 

5,1,” Radiergunni grod " 

6,1," Linie Gi 

7,1,” Linienstern 

8,1,” Linien 


N 


N 9,1,” Polygon 
AO pf MENU 2,10,1,” Rechteck 
108 Ta MENU 2,11,1,” Rechteck gefüllt 


Kreis 
Ellipse 
Füllen 
"MENU 2,15,1,” Färben 

Q MENU 2,16,1,” Lupe 

& nanu 2,17,1,” Texteingabe 
2 Be 


0,1, "Extra" 

1,1, "Muster Bdit  " 

2,1, "Muster Reset ” 

3,0,87RIN0$(15,45) 

4,1, "Linie Edit f 

5,1,"Linie Reset 

6,0,8TRING#(15,45) 

7,2,” Normal St11.0 

8,1,” Outline e 

\MENU 3, 9,1,” 3D-Print ” 

MENU 3,10,0,8TRING$(15,45) 

CV. MENU 3,11,2,” JAN ı ":Jane0 

I MEND 3,22,1,” JAN 2 Mr 

2 nen 3,13,0,STRINO$ (15,45) 

1 MENU 3,14,2," Normal ":8t411=0 

UN MENU 3,15,1," Unterstrichen” 

3,16,1,* Fett . 

3,17,1,* Kursiv E 

4,0,1, "Brush” 

4 Brush holen 
Brush setzen” 
Brush invers” 
Brush -OR- " 
Brush -XOR- " 

” Brush -AND- " 


\ MENU 
\ MENU 
MENU. 
MENU: 
MENU 


a uce # 


'F UndoBit THEN gr&=(TiefesINT((WINDOW(2)+16)/16) 


Nr Tiefe=6 THEN POKEW Viewportk+32, PEEKW(Vienport3+32) OR 


UR LinePatternke-1:Farbee1:ZveitfarbesFNFarbe2(Farbe) 


Nom SHARED Nusterfe1d(98) ‚Po1yX(17) ‚olyr(17) 


MENU 4,9,1, Brush > Y< ” 
" ON MENU GOSUB Auswahl 
Ö PAINT(1,1),1,0 
IF FRE(-1) >1500008 THEN wk=18 
"| SetPointer& WINDOW(7) ‚Nauszeiger&, 16,16,248,249 
GLS:LOCATE 14,8+(20%HresBit) :PRINT 
"Fertig! Mausknopf drücken!” 
Inttkaus:WHILE MOUSE(0)=0:WEND:CLS 
| ON BREAK GOSUB Ende:BREAK ON 
Start: Werkzeuge21:Nr=Werkzeug 
IF UndoBit THEN GET(0,0)-(WINDOW(2)-1 
„WINDOW(3)-1) ‚undo:CALL DisplayBeep! (0) 
N ON ERROR GOTO Fehler 
) Hauptteil: WEILE Nr<>18 
tauß=INKETB: akzWBenchToBnckk 
IF UndoBit THEN 
IF tas$=CHR$(27) THEN PUT(0,0) ‚undo,PSET 
IF tas$=CHR3(139) THEN GET(O,0) 
-(WINDOR(2)-1,WINDOW(3)-1) ‚undo 
:CALL DieplayBeep! (0) 
END IF 
IF Nr>20 AND Nr<=37 OR Nr>=61 AND Nn<=66 
THEN GOSUB wohin 
NraWerkzeug:NeuwahlsO 
MENU ON:MENU STOP:COLOR Farbe 
WEND 


ChangeFont "topa”,8 
ClearPointer! WINDOW(7) 
NusterReset 

SpeicherZurueck Muster 
SpeicherZurueck Mauszeigerk 
SpeicherZurueck Disk 

HENU RESET 

WINDOW CLOSE 2:SOREEN CLOSE 2 
WINDOW 1, "Bis zum nächsten Mat” 
»(0,0)-(617,186) 31 

75 LIBRARY CLOSE 

176 CLEAR, 30000 

am END 

178 470 Kuswahl: Punkt=MENU(0) :KennungsKENU(1) 

17 19 Neuwahls1;Nr=(Punkt-1)#204Kennung 
180 JR IP UndoBit THEN IF N0>20 AND Nn<=37 OR Nre>61 
18 

12 

ae 

184 

185 


‚AND Nn<=66 THEN GET(0,0)-(WINDOR(2)-1,WINDOR(3)-1 
)»undo:CALL DisplayBeep! (0) 

GOSUB wohin 

RETURN 


) wohin: 
IP Nre1 THEN 
ChooseColor "GewÜnschte Farbe anklicken” 
‚Farbe:COLOR Farbe 
ELSEIF Nr=2 THEN 
CALL, FarbeAendern:COLOR Farbe 
ELSEIF Nr>=3 AND Nr<=10 THEN 
ON Nr=2 GOSUB BildLoad,BildSave,ColorLond, 0olorSave, 
Brushload, Brushsave,Nusterload, Nustersave 
ELSEIF Nrell THEN 
FontOeffnen 
ELSEIF Nre12 OR Nr=13 THEN 
GOSUB DosBefehl 
ELSEIF Nr=14 THEN 
Sure 8 
IF S THEN cLS 
ELSEIF Nr=15 THEN 
DOS "SYS:SYSTEM/GraphicDunp”,0 
ELSEIF Nr=16 OR Nre17 THEN. 
ö ON No-15 GOSUB od, dir 
ELSEIF Nr=18 THEN 
Sure S:IF NOT S THEN NreWerkzeug 
ELSEIF Nr>20 AND Nr<=37 OR Nr>=61 AND Nn<=66 THEN 
NEND INT(Werkseug/20)+1,Nerkzeug NOD 20,1 
Werkzeugelir 
MENU INT(Werkzeug/20)+1,Werkzeug MOD 20,2 
IF Nr<=27 THEN 
ON Nr-20 GOSUB Freiand.Strich, FreiHand.Dots,Spray, 
Rediergunni ‚Radiergunni,Linie, Linie 
ELSEIF Nr=28 OR Nr=29 HEN 
Poly ABS(Nr-28) 
BLSEIF Nr=30 OR Nr=31 THEN 


ur 
® 


tr 


HESSEIRSNER una ee © 


DIET ET 
gmausgz 
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ListinGs 


212 xu6 Rechteck ABS(Kr-30) 

219 09% EISEIF Nre32 OR Nr=33 THEN 

214 e26, Kreis CSNC((33-Nr)*(1-HiresEtt/2)) 

215 &4 EISEIF Nr=34 OR Nr=35 THEN 

216 KT6 ON N2-33 GOSUB Fuellen, Feerben 

217 azı ELSEIF Nr=36 THEN 

218 n06 Lüpe 

Zi y54  ELSEIF Nr=37 THEN 

220 016 Texteingabe 

221 14 EISEIF Nr=61 THEN 

222 1D6 GOSUB Brush.holen 

223 Bud ELSEIF Nr<=66 THEN 

RRA 996, GOSUB Brush.setzen 

ea END 

R26 Fy2) ELSE 

@2TYg& IF Need THEN 

228 ine, Yakeltuster 

229 sy4 EISEIF Nr=42 THEN 

230 g16 NusterReset 

231.064 ELSEIF Nr=44 THEN 

232 286 Liniennuster 

233 984 ELSEIF Nr=45 THEN 

234 16 POKEW WINDOR(8)+34,-1 

235 and ELSEIF Nr>=47 AND Nr<=49 THEN 

236. 116 MENU INT((47458t411)/20)+1,(47+St11) MOD 20,1 
237 a6 StilsABS(47-Nr) 

238 2a MENU INI((474St11)/20)+1,(47+St11) m0D 20,2 
239 dh ZueitFarbesFNParbe2(Farbe) 

ERRSN IF StiL<>O THEN 

241 088 Chooselolor "Zweitfarbe wählen! ",Zueitfarbe 
242 6 AND IF 

243 1A ELSEIF Nr=51 OR Nr=52 THEN 

244 Ug6 MENU INT((SiHlam)/20)+1,(51rTam) MOD 20,1 
245 dp Janshr-51 

246 Yı MENU INT((51+Jam)/20)+1, (51+Jam) MOD 20,2 


AT ga  ELSEIF Nr>=54 AND Nr<=57 THEN 
248 N26 Stillehr-54 


249 Yr Makestil Still 
250 964 ELSEIF Nr=68 OR Nr=69 THEN 
251 Ude Mirror ABS(68-Nr) 


252 004 END IF 
253 du2 END IF 


254 840: RETURN 

255 e6 Fehler: IF ERR< >11 AND ERR<>14 THEN 

256 HOA IF ERR=3 THEN RESUME Hauptteil ELSE IF ERR=255 
'THEN ERROR ERR 

27 an IF 1=6 AND ERR=100 THEN WINDOW OUTPUT 2:LINE 
(0,y+1)-(Breite,y+1) ‚MaxFarben-1:CALL Rubber(0) 

258. kB Inp$(1,1)="Vorsicht, Fehler!” 

259 12 Inp$(2,1)="Pehlernummer”+STR$(ERR) 

‚260 a1 IF ERR=14 THEN Inp$(2,1)= 
"Speicher reicht nicht!” 

2BL ER IF ERR=49 THEN Inp$(2,1)= 


"Ohne DISK geht hier GAR NICHTS! ; 
IP ERR=61 THEN Inp$(2,1)= Diskette 
gespeichert!” 

IF ERR=76 THEN Inp$(2,1)="Font nicht gefunden!” 
IF ERR=77 THEN Inps(2,1)= 
"Sorry, schlechtes Fornst, 
IF ERR=78 THEN Inp$(2,1)= 
"Bild hat äle Falsche Breite!” 
ERR=79 THEN Inp$(2,1)= 


"Bild hat zu viele Farben!” 

IF ERR=61 OR ERR=67 OR ERR=77 OR ERR-78 OR 
ERR=79 TEEN CLOSE 

IF ERR-80 THEN Inp$(2,1)= 


"Kein Ausgabefenster. 
IF ERR=100 THEN Inp$(2,1)="Bild nicht fertig 
gespeichert! ":CALL xClose! (Datei) 
Ausgabefenster "Fehler aufgetreten! ”,2 
WINDOW 2 
ELSEIF ERR=14 THEN 
BEEP:RESUME Hauptteil 
zw Ir 
IF ERR=61 
OR ERR=100 THEN RESUME 
276. NO RESUME NEXT 
277 0X ret:RETURN 
278 @0 DATA 0,0,0,0,2,128,0,0,2,128,0,0,2,128,0,0,2,128,0,0 


OR ERR-67 OR ERR-=77 OR ERR=78 OR ERR-73 
t 


283 &12 WINDOW 3,Titeis, (17,20)-(294,60),18,2 

282 02 Farbleiste 

285 D# Farbkasten O,col,1 

BE N7 | x=ü:y-0:n=O 

287 jE WEILE NOT(m=1 AND (x>=10 AND x<=266 AND y>=10 
AND y<=26) AND (POINT(X,y)<>1 OR x>=19 
AND x<=25 AND y>=11 AND y<=17)) AND WINDOW(O)=3 


20 72 wem 

1 sa IF WINDOW(O)=3 THEN col=POINT(x,y) 
292 3& WINDOW CLOSE 3 

23% Inttkaus 


295 v6 SUB FarbeAendern STATIC 
296 y& SHARED back, Farbe,RGB() ‚AnzFarbReg,uk 
2 2 
238 59 WINDOW 3, "Farbe ändern - Warten bis ##* PIEP Xxk“ 
‚(0,20)-(311,90) ‚wx,2 
299 ha  SetDrhdi WINDOR(8),0 
300 9 Farbleiste 
Farbkesten 0, Farbe,O 
LOCATE 5,1:PRINT "R":LOCATE 6,1:PRINT *6” 
:LOCATE 7,1:PRINT "B”; 
LINE(10,31)-(138,55),1,b 
LINE(10,39)-(138,47) ,1,b 
FOR 1e1 TO 16 
PSET(10+4*8,32) ‚1:PSET(10+1#8,38),1 
PSET(10+108,40) „1:PSET(10+108,46) ‚1 
PSET(10+1#8,48) „:PSET(10+188, 54) ,1 
NExT ı 
LINE(150,31)-(170,55) ,1,b:LOCATE 6,20:PRINT *0K” 
LINE(180,31)-(212,55) ,1,b:LOCATE 6,24: PRINT "<=>" 
LINE(222,31)-(257,55),1,b:LOCATE 6,29:PRINT "COPY" 
LINE(266,32)-(300,55),1,b:LOCATE 6,35:PRINT "NOL” 
Balken Farbe 
FOR 1-0 TO AnzFarbReg-1 
AGB.Wert 1,RGE(1,1),RGB(1,2),RCB(1,3) 
NEXT:BEEP 
ON MOUSE GOSUB Palettennsus:MOUSE ON 
WEILE back=O AND WINDOK(O)=3:WEND 
NOUSE OFF:ON MOUSE GOSUB 0 
WINDOW CLOSE 3 
Instäaus 


BESESSERS SE 
EBUFGHTSERARÄENFHRTE Am 


NERSEHREERER 


325 72 Filenane "Bild laden”,Nan$,"”,"I”,0 
326E2 IF NanS<>"" THEN 

327 zAh Datei&-xOpen&(SADD(Nan$+CHR$(0)) 1005) 
328 4h Lies 4,8$:IF a8<>"FORM” THEN ERROR 77 
UN  Lieshun 

330% Lies 4,a$:IR aß<>"ILBM” THEN ERROR 77 
332 & LiesBis "BNkD“ 

32V Lies 4,a8:IF OVL(a3)<>20 THEN ERROR 77 
333 e& Lies 2,85:wide=CVIlas) 

33% et Lies 2,8$:high=CV1(a$) 


HÜTE Lies 1,2$:conpsASc(a$) 
BEN Lies 9,25 

tesbis "CAP" 

Bar) Lies 4,28:Ferben-CVL(a8)/3 


Er Ferben>änzFerbReg THEN ERROR 79 
345 38 4=0 TO Farben-1 

BE y6 Lies 1,83:r=450($)/16 

347 20 Lies 1,28:g-45C(23)/16 

HE Lies 1,28:b-450(2$)/16 

33 Kı PALETTE 1,r/16,8/16,0/16 

So wur 

Az LiesBis "sony" 


Listing 2. (Fortsetzung) 


EN DONECONUTERWOR.D.COM 


113 


92 ay Lies 4,asicıs 427 FrO RETURN 
a93\0L FOR 1-0 TO Tiefe-1:adnk(1)=PEBKL(PEEKL 428 VE ColorSave: 

(WINDOW(B) 44) +8+4%1) sNEXT 429 Bp2 Filenane "Palette Speichern ”,Nan$, ”.col”, "0,1024 
354 U IF oomp=O THEN 430 IF Nans<>"" THEN 
355, eu6, FOR ysD TO high-1 431 Dad TOR 1-0 10 31 
396 uva FOR b=0 10 bitpi-1 432 226 ROB.Wert 1,al,a2,a3 
357 0KA ak=adr&(b)+wide/äry 433 2B PRINT #1,CHRS(a1)+CHRS(a2)+CHRE(a3) ; 
358 Cu echtäsxRead&(Datelk, ak, CINT(w1de/8)) 434 a4 NEXT:CLOSE 
359 5x8 NEXT 435 x02 END IF 
360 1y6, NEXT 436 000 RETURN 
361.094, ELSE 437 jd Brushload: 
362 136 FOR ys0 TO high-1 #38 262 Filenane "Brush Laden”, Nand, ".Brs”, "I”,1024 
263 ins FOR bp=0 TO bitpi-1 439 32 IF Nans<>"" THEN 
364 804 0=0:aksadr&(bp)+wide/äry 440 864 ERASE Brush 
365 Wi MEILE ce <wide/8 441 0F INPUT #1,a 
366 Bat echtkexResdk(Dateik,Disk&, 1) ;a=PEEK(Diskk) 442 NL DIM Brush(a) 
367 58 IF a<128 THEN 443 ia FOR 120 TO a 
‚368 CHE echt&exReadk(Dateik,aktc,a+l) 4hh TBB Brush(1)=CVI(INPUTS(2,1)) 
36906 exctatl 446 2d4  NEXT:CLOSE 
370 Reo ELSEIF a>128 THEN 446 bie END IF 
371 MxE echtksxReadk(Dateik,Disk&,1):b=PEEK(Disk&) ‚MAT, ZEO, RETURN 
EICH 3 FOR i»e TO 0+256-a AAB 12 Brushsave: 
373 aU6 POKE abtl,b 449 pe2 IF UBOUND(Brush)>1 THEN 
374 ICE NEXT n #0 be4  Filenane "Brush Speichern”,Nang, ".Bra”, "0",1024 
373.83 0e0+297-a A523 IF Nan$< > "" THEN 
376 016 END IF 452 oR6 PRINT #1,UBOUND(Brush) 
AT KA WEND 453 nF FOR 1=0 70 UBOUND(Brush) 
378, 88 NEXT Ash 328 PRINT #1,MKI$(Brush(i)); 
379 CH6& NEXT 455 vn6 NEXT :0LOSE 
380 4x4 END IF 46 IBA  END.IF 
381 51 xC1ose! (Dateik) 457 002 END IF 
382 682 END IF 458 KO RETURN 
383. X90 RETURN 459 16 Musterload: 
384 Xu BildSave: 460 db? Filename "Nuster Laden”,Nans, "Nat", "L*,1024 
385 VB2 Filenane "Bild speichern”,Nang, "", 0", 1024 461 PD | IP Nanp<>*" THEN 
386 00 IF Nang< > "" THEN #62 Qi4  Neuhuster 
3ey aba CLOSE 463 TG FOR 120 70 98 
388 iD Datei&=xOpen&(SADD(Nan$+CHR$(0)),1006) 464 286 Musterfeld(i)=CVI(INPUT$(2,1)) 
289 FH schreibe "FORM’+NKLA(60+AnzFarbRegX3+Breite/ar 465 af NEXT 

TiefexHioehe) 466 Vy2 CLOSE 
390 xa schreibe "TLENENHD"+NKLS(20)4MKIS(Breite)NKI$ (Hoche) 467 62 Musteraktiv 
391 PN schreibe NKLS(O)+CHRS(Tiefe)+CHRS(0)+MKLS(O) AB UN END IF 
392 0a IF HiresBit=i THEN CALL schreibe(CHRS(KHA4)) ELSE CALL 469 VX0, RETURN 

schreibe (OHRR(&HA)) 470 Gf Mustersave: 
393 IR schreibe CHRS(AHB) 471 DP2, Filenane "Muster Speichern”,Nan$, *.Nst”, "0",1024 
394 pn schreibe MKIS(Breite)+NKI$(Hoehe) 47200 IF Nand<>*" THEN 
395 nt Viewport=PEEKW(PEBKL(WINDOW(7)+46)+44432) WTB O4 FOR 1-0 TO 98 
‚396 2m schreibe "CANG"+KLS(4)+NKLE(Vienport) 474 Bu6 PRINT #1,NKI8(Mustenteld(1)); 
397.86 schreibe "CHAP”+HKLE(3XAnzFarbReg) 475 kpd NEXT 
338 HU FOR 1=0 10 AnzFarbReg-1 476.cV2 END IF 
399 286 RGB.Wert 1,a1,n2,03 47789 | LOSE 
400 83 schreibe OHR$(a1K16)+CHRS(a2*16)+CHRS(a3*16) A78 480 RETURN 
“On YA NEXT 479 Iy SUB FontOeffnen STATIC 
402 xp schreibe "BODY "HIKLS(Breite/SrTieferiöehe) 480 06 SHARED Inp$() 
403 11 Rubber 2 481 2D2 Inp$(1,1)="Fontname => * 
404 ww FOR 1=0 TO Stadr&(1)=PEEKL(PEEKL(WINDOW(8)+4)+8+4%4) 42 au Inps(2,1)="Fonthöhe => * 

:NEKT 483 Mo | Eingaberenster "Systenfont öffnen”,2 
405 9n | FOR y=0 TO Hoehe-1 484 Wy Fonth=VAL(Inp$(2,2)) 
406 106 LINE(0,y+1)-(Breite,y+1) ‚NaxFarben-1 485 50 | IF Inpf(1,2)<>"" AND Fonth<>0 THEN 
Ko ea FOR b=0 TO Tiefe-1 486 74  Changeront Inp$(1,2),Fonth 
‚sog re akzadr&(b)+Breite/äky 487 ng? END IF 
409 De echt&sxwritek(Datei&, as, CINT(Breite/8)) ABB UDO. END SUB 
410.5n IF echtk<O THEN ERROR 100 489 Km DosBefehl: 
411 In6 NEXT 490.02 Inpsl1,1)="> " 
A zu LINE(0,y41)-(Breite,y+1) ‚NaxRarben-1 491 AS Eingeberenster "DOS-Befehl ausführen”,i 
413 kp& NEXT 492 X0 | DOS Inp$(1,2),CINT(Nr-13) 
414 Im Rubber 0 433 IvO, RETURN 
415 az xClogel (Dateiß) 494 6h ed: 
416 eX2 END IF 495 hK2 Inp$(1,1)="=> ” 
447 Sh0, RETURN 496 Tu Bingaberenster "Welches Verzeichnis? ",1 
48 La ColorLoad: 497 a4 CHDIR Inp$(1,2) 
419 @D2 Filenane "Palette Laden”,Nan$, ".co1”, "1”,1024 498 000 RETURN 
420 %Y IF Nang<>"" THEN HAB dir: 
Hal ala 4-0 500 Yu2 WINDOW 3, "Inhaltsvergeiohnis - CIRL’S-STOP* 
422 ka FOR 1=0 70 31 »(0,10)-(311,150),0,2 
423 216 al=ASO(INPUT$(1,1)) :a2=ASC(INPUTS(1,1)):83=ASC (INPUT s01.3L, FILES 

s(4,2)) 502 4P  WHILE WINDOW(O)=3:WEND 

424 N. PALEITE 1,a1/16,82/16,83/16 503 05 WINDOW CLOSE 3 
425 RI4  NEXT:CLOSE 504 dr Initlaus 
426 one END IF ‚305 W7O RETURN 
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Listinss 


506 UB Freiland. Strich: 

‚507 002 m=MOUSE(0) 

SO RR IF m<O THEN 

509 2N4 PSET(HOUSE(1)-1,MOUSE(2)), Farbe 
510 1a WHILE NOUSE(0) <O 

Si 156 LINE -(MOUSE(1)-1,KOUSE(2)) ‚Farbe 
2 Va END 

513 D62 END IF 

514 8G0, RETURN 

51 en Freiland .Dots: 

56 1e2 WHILE MOUSE(0)<>0 


517 hVA PSET(MOUSE(1)-1,MOUSE(2)) Farbe 
S18 nb2 WEND 
519. J10 RETURN 


320 13 Spray: 

521 6j2 WEILE NOUSE(0)<>0 

522 NF4  PSET(MOUSE(1)-14RNDKLL-5, MOUSE(2)+RNDKLL-5) ‚Farbe 

523 0g2 END 

924 000 RETURN 

525 IP Rediergummi:; 

526 162 IF Nre24 THEN ko=2 ELSE ko=10 

927 KK m=MOUSE(0) 

528 ch IF meO THEN 

929 Kid Rubber 2 

530 dx, LINE(HOUSE(1)-1-ko, NOUSE(2)-ko)-(NOUSE(1)-1+ko 
‚MOUSE (2)+ko) ‚Farbe, b£ 

531 va Warten 75 

532 dn LINE(MOUSE(1) -1-ko, MOUSE(2)-ko)-(NOUSE(2)-1+k0 
‚NOUSE(2)+ko) ‚Farbe,bf 

33 Gh Rubber 0 

534. Dy2 ELSE 

535 4  WHTLE MOUSE(0)<>0 

536 ha6 LINE(HOUSE(1)-1-ko, MOUSE(2)-ko)-(HOUSE(2)-14x0 

\ ‚MOUSE(2)+ko) ‚Farbe,bf 

537 Sud WEND 

538 eva END IF 

539 3£0 RETURN 

540 60, Linie: 

541 Pu2 IF MOUSE(0)<>0 THEN 

4a 56h  xXL=MOUSE(1)-L:yi=MOUSE(2) 

543 H8 IF Nr=26 THEN Rubber 2 

Ah FO WHILE NOUSE(0) <O 


545 Dn6, &2=NOUSE(1)-1:y2=MOUSE(2) 
346 av LINE(x1,y1)-(x2,y2) ‚Farbe 
EN Warten 73 

548 u, LINE(x1,y1)-(x2,y2) ‚Farbe 
549 164 WEND 


350 17 IF No=26 THEN Rubber 0 

91 x0 LINE(x1,y1)-(x2,72) ‚Farbe 

»52qj2 END IF 

‚553 HtO, RETURN 

554 80 SUB Poly (a) STATIC 

655 X5 | SHARED Farbe 

556 0x2  m=HOUSE(0) anz«o 

557 pl IF ABS(m)e1 THEN 

Sb 4A  xieMOUSE(L)-L:yInNOUSE(2) :xexi:yayl 
259 Qu IF a=1 THEN 


60 wa6 TestKoords x1,yL:AREA(x1,y1) 

561 uB PolyX(anz)=x1:PolyY(anz)syl:anzeanz+L 

562 064 END IF 

63 ea WHILE ABS(m)<>2 AND (ang<18 OR a<>1) 

564 LN6 Rubber 2 

565 BT WEILE ABS(n)e1 

566 178 x2=NOUSE(1)-1:y2«MOUSE(2) 

367 DO, LINE(x1,y1)-(x2,y2) ‚Farbe 

968 We Warten 75 

569 PT LINE(x1,y1)-(x2,72) ‚Farbe 

37011 m=NOUSE(0) 

BTL 086 WEND 

72 18 meD:IF a<>1 THEN Rubber 0 

573 ed IF a=1 THEN 

574 048 Testkoords x2,y2:AREA(x2,y2) 

EI PolyX(anz)=x2:PolyY(anz)=y2:anzsanz+1 

576 E76 END IF 

77 Na LINE(x1,y1)-(x2,y2) ‚Farbe 

578 12 xlex2:yley2 

7a IF (anz<18 OR a<>1) THEN WHILE m=0:m=MOUSE(0) 
:WEND 

580 nb4  WEND 

Sei m IR a-1 THEN 


582 u76 FOR 1=0 T0 anz-2 

583 hk8 LINE(PolyX(i) ‚PolyX(i))-(PolyX(i+1) ‚PolyY(i+1)) 
‚Farbe 

584 176 NEXT i 

585 Ur Rubber O:AREAFILL 

586 044 END IF 

587 CB BEP 

588 21 InitMaus 

589 Kk2 END IF 

590 Ya END SUB 


591 IV SUB Rechteck(a) STATIC 
592 My SHARED Farbe,x1,x2,y1,y2 


593 #02 meMOUSE(0) :x1a0:yl=0:x2n0:y2=0 

394 ge IF ABS(n)eL THEN 

995 W04  X1MOUSE(1)-1:y1=NOUSE(2) 

5% Pa Rubber 2 

597 x2 WHILE ABS(m)»1 

598 446 x2=MOUSE(1)-1:y2=HOUSE(2) 

599 hm IF &=0 OR s«2 THEN LINE(x1,y1)-(x2,y2),‚Farbe,b ELSE 
LINE(x1,y1)-(x2,y2) ‚Farbe,bf 

‚60 2A Warten 75 

‚so 0 IF &«0 OR a«2 THEN LINE(x2,y1)-(x2,y2),Farbe,b ELSE 
LINE(x1,y1)-(x2,y2) ‚Farbe,b£ 

‚602 2X m=MOUSE(0) 

603 Ay WEND 

604 Pq Rubber 0 

609 07 IF &=0 THEN LINE(x1,y1)-(x2,y2),Farbe,b ELSE IF a=1 

THEN LINE(x1,y1)-(x2,y2),Farbe,be 
606 ib2 END IF 
‚607 pro END SUB 


608 80 SUB Kreis (verh!) STATIC 
609 N9 SHARED Jam, Farbe 


610 Kg2 vhlaven! 

611 %2 IF MOUSE(0)<>O THEN 

612 344  xm=MOUSE(1)-1:ymeMOUSE(2) 

613 E98 Rubber 2 

614 NW WEILE MOUSE(O) <O 

615 dd6 x=MOUSE(1)-1:y=MOUSE(2) 

616 EX IF verhi<>0 THEN 

617 n58 TeSQR(ABS(xm-x)"2+ABS(yn-y)'2) 

‚618 zi6 ELSE 

619 118 IP ABS(y-yn) >ABS(x-xm) THEN rrABS(y-ym) 
ELSE r=ABS(x-xn) 

620.39 IF ABS(x-xm)<>0 THEN vhl=ABS(y-ym)/ABS(x-xm) 

621 x96 END IF 

622 oE CIRCLE (xm,ym) ‚x, Farbe, ‚vn! 

623 st Warten 50 

624 00 CIROLE (xm,ym),n,Farbe,,,vht 

625 WKA  WEND 

626 16 Rubber 0 

Lues GIRCLE (xm,ym) ‚m, Farbe, , ‚vhl 

628 4x2 END IF 

629 BDO END SUB 

630 7K Fuellen: 

631 N62 IF Neuwahlsi THEN 

692 ka  rfeFarbe 

633 86 Chooselolor "Randfarbe wählen“,nf 

634 0X Neuwahl=O 

5 B42 END IF 

636 E5 IF MOUSE(O)=1 THEN 

637 VIA PAINT(MOUSE(1)-1,MOUSE(2)) ‚Farbe,nt 

638 E72 END IF 

639 EHO, RETURN 


60 PS Faorben: 


6A Ja2 
‚642 vDh 
643 Jc2 


‚644 EMO. RETURN 
‚645 08 SUB Lupe STATIC 
646 6a SHARED Farbe,Lup() 


647 182 
648 Fid 
649 A 
‚650 20 
651 ra 
652.49 
653 cd 


Listing 2. (Fortsetzung) 


IF MOUSE(0)=1 THEN 
Flood! WINDOW(8),1,MOUSE(1)-1,MOUSE(2) 
END IF 


IF MOUSE(0)=0 THEN 
Rubber 2 
x=MOUSE(1) :ysMOUSE(2) 
LINE(x,y)-(x+31,y#15) ‚Farbe,b 
Werten 75 
LINE(x,y)-(x+31,7+15) ‚Farbe,b 
Rubber 0 
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‚654 982 ELSE 

6 NIE xlextäliylayels 

‚656 Ho Testkoords x,y 

TO Testkoords x1,yl 
Sa GEMX,y)-(x1,y1),Lup 
659 gu Eäitor "Lupe",32,16 
‚660 KV PUT(x,y) ‚Lup,PSET 

66 A InitNaus 

662 oy2 END IF 

663 410 END SUB 

664 Ha SUB Toxteingabe STATIC 
665 X4 SHARED Jam, StAl,ZweitFanbe 
666 202 m=HOUSE(0) 

667 86 IF mei THEN 

668 44 PixelLocate MOUSE(1)-1,MOUSE(Z) 


669 ap Rubber Jam;aß="":WHILE INKEYE< > **:WEND 
son WHLLE a9< >CHRI(13) 

‚671 TOR a$eINPUTS(1) 

672 9m IF StAl=O THEN 

‚673 818 IF aß<>CHR$(13) THEN PRINT a$; 

574 pa6 EISEIF StAl=1 THEN 

‚675 omb IF eB<>CHRS(13) THEN CALL Outline (a$) 
676 vh6 ELSEIF Stil=2 THEN 

ETT B4R IF a8< >CHRS(13) THEN CALL D3 (a$) 
678 816 END IF 

679 00% WEND 

680.04 Rubber 0 

‚681 In - InitMaus 

682 Wp2 END IF 

‚683 350 END SUB 


|684 DE SUB Makelluster STATIC 

‚685 9m SHARED Muster& 

‚686 ade Ealtor Muster erstellen”,16,16 

687,98 | Musteräktiv 

8 vu | Initlisus 

689 950 END SUB 

690 6R SUB Husterkeset STATIC 

691 952 POKEL WINDOW(B)+B, 0 

692 6% POKE WINDOR(8)+29,0 

693 DrO m SUB 

694 SI SUB Linienmuster STATIC 

‘895 IF SHARED LinePattern&, NaxFarben, uk 

@6 ir2 WINDOW 3, "Lintenmuster”, (75,10)-(235,21) ‚uk,2 
OT IM FOR 1=0 10 16 

@& Ve4 LINE(1#10,1)-(1#10,10),3 AND MexFarben-1 


699 be IF i<16 AND (LinePattern& AND 21) 
THEN LINE(4*1041,1)-(1#1049,10) ,1,b£ 
NEXT 
WEILE WINDOR(0)=3 
IF MOUSE(0)<>0 THEN 
703 26, x=MOUSE(1) :y=MOUSE(2) 
704 er IF INT(x/10)<>x/10 THEN 
"705 bps LINE(INT(x/10)*1041,1)-(INT(x/10)#10+9,10) 
„ABS(NOT(-POINT(X,Y))) ,dE 
706. KD6 END IR 
707 up InitMaus 


MOB MPL = END IR 
709 da2 WEND:Lineratternd=d 
70 SU FOR 4»0 TO 15 
Tr 784 IF POINT(A#1045,5)=1 
HEN LinePattern&eLinePatternä+2i 
MR Zen NEXT 
a md, WINDOW OLOSE 3 
4 Ku POKEN WINDOW(B)+34,LinePatternk 
m 2 | Inmitten 
'TI6 au0 END SUB 
MAT X8 SUB Outline(tex$) STATIC 
718 00 SHARED Farbe, Jan,ZweltFarbe 
TA9 Cha Rubber 0 
720 op x=PEEKW(WINDOR(8)+36) :yaPBEKW(WINDON(8)+38) 
Mei K2 FOR 1s0 702 
Tea ca FOR Ja0 702 


123 226, IF t<>1 AND J<>1 THEN 
724 Wn8 Pixellocate x+1,y4J 

725 vo BRINT tex$; 

726 ex6 END IF 

TaT ot NEXT 

728 pu2| NEXT 


729 at Pixellooate x#l,y+1 
730. FW COLOR ZweitFarbe:PRINT text; 


731 W# Pixellocate PEEKW(WINDOW(8)+36)-1,y 
732 WU COLOR Farbe 

733 ım Rubber Jan 

734 su0 END SUB 

735 0P SUB D3(tex$) STATIC 

736 OP SHARED Farbe,ZveitFarbe,Jan 

737 Ye2 Rubber 0 

738 67 x=PEEKW(WINDOW(8)+36) :yaPEEKW(WINDON(8)+36) 
739 0k  Pixelloonte xr2,yr1 

TAO PE COLOR ZweitFarbe:PRINT tex8; 

7438 Pixellooste x,y h 

ha ga COLOR Farbe:PRINT tex$; 

743 $£ Rubber Jan 

ah 240 END SUB 

7A GC SUB Makestil(8) STATIO 

Ab 192 aLeWINDOW(8)+56 

TAT cl IF S20 OR PEEK(a&)-2(S-1)=0 THEN 
748 64 POKE ab,0 

749 ME MENU 3,14,2:FOR {#15 10 17:MENU 3,1,1:NEXT 
760 bQ2 ELSE 

Tal 204 MENU 3,14,1:b=PEEK(ak) 

752 uv IF (b AND 2(S-1)) THEN 


753 v6 MENU 3,1448,1 

75h uk ELSE 

755 146 MENU 3,1448,2 
76 END IF 

797 2 POKE a&,b XOR 2(S-1) 


58 A392 END IF 
Pa HE  SzPEEK(aE) 


763 DA IF x1<>x2 AND yl<>y2 THEN 
62 SK&  ERASE Brush 


765 €: IF x1>x2 THEN Swap x1,x2 
76600 IF yl>y2 IHEN SWAP yl,y2 
TEILE  Groesse=(6+({y2-y1+1)*2AINT((x2-x1416)/16) Tiefe) /2-1 
768 wı IF FRE(0) >Groessex2+5000 
TEEN "5000 Bytes sollen mind. übrigbleiben 
763 x26 DI Erush(Groesse) 
770 19 GET(X1,y1)-(x2,y2) ‚Brusi 
mı2ı  EISE 
772 896. BEEP:DIM Brush(1) 
736 mir 
74 92 EI IF 
775 TO RETURN 


776 ol Brush.setzen: 

TFT 2 m=NOUSE(0) 

778 8d IF me THEN 

TO MpL Rubber 2 

780 12 PUT(NOUSE(1)-1,MOUSE(2)) ‚Brush,XoR 

TEL nd LINE(MOUSE(1)-1,MOUSE(2))-(MOUSE(1) 
+Brush(0)-2,MOUSE(2)+Brush(1)-1) ‚Farbe,b 

782 RS. Warten 50 

783 02 LINE(MOUSE(1)-1,MOUSE(2))-(MOUSE(1) 
+Brush(0)-2,MOUSE(2)+Brush(1)-1),Farbe,b 

784 93 PUT(HOUSE(1)-1,HOUSE(2)) ‚Bruah,XOR 

785 Kl Rubber 0 

786 Re2 ELSEIF UBOUND(Brush) >1 TIIEN 

NET DA IF Nxe62 THEN 


788 KL6 PUT(MOUSE(1)=1,MOUSE(2)) ‚Brush, PSET 
789 1Ak ELSEIF N»«63 THEN 
790 uß6 PUT(MOUSE(1)-1,MOUSE(2)) ‚Brush, PRESET 


791 604 ELSEIR Na64 THEN 


792 606 PUT(NOUSE(1)=1,NOUSE(2)) ‚Brush,OR 
793 DM,  ELSEIF Nre65 THEN 
794 206 PUT(NOUSE(1)-1,MOUSE(2)) ‚Brush,XOR 
795 654 ELSEIR Nr=66 THEN 

K6 


796, PUT(NOUSE(2)-1,MOUSE(2)) ‚Brush, AND 
Tag  ENDIF 
798 oh2 


799: ErO RETURN 

800 Te SUB Mirror (a) STATIC 

‚01 2B SHARED Brush(), Tiefe 

202 j#2 x=Brush(0):y=Brush(1) 

803 jR IF UBOUND(Brush)>1 AND y<WINDOR(3)-8 THEN 
‚804 Xe4 WINDOW 3, "MIRROR”, (0,0)-(x-1,y-1),0,2 

805 Ku PUT(0,0) ‚Brush,PSET 

806 Mir IF a=0 HEN 

807 7u6 gr=(2*Tiefery+6) /2:DIM Miri(gr),Mirz(gr) 
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FOR 4=0 TO INT(x/2)-1 


509 us GET (1,0)-(1,3-1),Miri 

810 20 GET (x-1-1,0)-(z-1-1, 7-1) ‚Mir2 

sı1 10 Pur (4,0) Mir2,PSET 

512 u PUT (x-1-1,0) ‚Mir1,PSET 

813 016 NEXT 

814 16 BRASE Mir1,Mir2 

Su  EISE 

816 hes Er=(2MTiefexINT((x+15)/16)+8)/2 
:DIM Miri(gr) ‚Mir2(gr) 

817 Ju FOR j=0 TO INT(y/2)-1 

818 ms GET (0,5)-(x-1,j),Miri 

EIN GET (0,9-1-j)-(x-1,9-1-3),Mir2 

820 1S Pur (0,3) ,Mir2,PSET 

azı xe PUT (0,y-1-5) ‚Mir1,PSET 

822 106 NEXT 

823 UF ERASE Mir1,Hir2 


Be EMIF 
825 cF GET(0,0)-(x-1,y-1) ‚Brush 


826 1 WINDOW CLOSE 3 
‚827 wa EISE 
BB Vi  BEEP 


829 102 EW ır 

830 950 ID SU5 

31 4X HRKKHN 

B32 UK SUB Ausgabefenster (Titel$,Zeilen) STATIC 
(833.00 SHARED Inp$(),wk 

824 432 WINDOW 3, Titels, (17,20)-(294,28+Zeilent8) ‚w,2 
835 73 FOR 1-1 TO Zeilen:PRINT Inps(1,1) 

#36 88 _WHILE WINDOW(0)=3:WEND:WINDOW GLOSE 3 

837 05 InitMaus 

838 Ya0 END SUB 

339 63 SUB Balken(Farbe) STATIC 

840 LI2 IF Farbe<=31 THEN 

all Dek  RGB.Wert Farbe,n,g,b 

842 RR LINE(11,33)-(18+7%8,37) ,1,bf 

WaJK IP r<>15 THEN LINE(19+748,33)-(137,37),0,bf 
8% I LINB(11,41)-(18+88,45) 1,b£ 

e4sbE IF g<>15 THEN LINE(19+8%8,41)-(137,45),0,b£ 
846 GP LINE(11,49)-(18+5#8,53) ,1,b£ 

847 Mi IF b< >15 THEN LINE(19+b*8,49)-(137,53) ,0,b2 
4a H02 ELSE 

849 In4  LINE(11,33)-(137,37),0,D£ 

‚850 6d LINE(11,41)-(137,45) ,0,b£ 

Bsinn  LINE(11,49)-(137,53),0,b£ 

852 822 END IF 

853 up0 zUD SUB 

854 UV SUB ChengeFont(Fontname$,FHoehe) STATIC 

855 ge SHARED Still 

856 BP2 altfont&-PEEKL(WINDOW(8)+52) 

8a? ve DIM texteitr&(1) 

858 db  textattr&(0)=SADD(Fontnameg+”.font"+CHR$(0)) 
859 IN textattr&(1)-Fiocher65536& 


260 25 Fontname$="topaz” AND FHoche<=9 THEN 
861 S64 textfont&=OpenFontk(VARPTR(textattr&(0))) 
62 VE2 EISE 


863 04 textfont&=OpenDiskFont&(VARPTR(textattr&(0))) 
64 sıa END IF 

26500 IF textfonte<>0 THEN 

866 104 Closefont! altfont& 

867 IS ‚SetFont! WINDOW(8) ‚texifont& 

868 bk2) ELSE 

869 iU4 ERROR 76 

870 yo2 END IF 

(371 1 ERASE textettr&:Stili-o 

872 bu MakeStil Stilt 

873 790, END SUB 

87% WI SUB DateiVorhanden(DName$,Erg) STATIC 
B75 22 1okk-Lock&(SADD(DVane$+CHR$(0)),-28) 
376 © IF lok&«D THEN 

E77 mE  Erg=0 


‚azB 102) ELISE 
BA  Ergs-1 
BB AR  Unlockk lokk 


881922 END IF 
882 610 Eu SUB 
883. 4F SUB DOS(Befehl$,mode) STATIC 
884 N02 IF mode=0 THEN wind$="NIL: “+CHRF(O) 
ELSE wind$="C0N:0/10/639/120/"+Befehls+Chn$(0) 
‚885 08 | adr&=xOpeng(SADD(wind$) ‚1006) "EX Bei genug 


- Speicher Window ruhig vergrößern x## 
886 32 IF adrk-0 THEN ERROR 80 

BB7N6 IF mode<>0 THEN ag-WBenchTofrontk 
88822  a%-Execute&(SäDD(Befehl$+CHR$(0)) ‚OB,adrk) 
BSaR9 IF a&-D THEN BEEP 

8% 16 Werten 10000 

89109 IF mode<>0 THEN aßsiBenchToBackk 
32 xClose! adrk 

893 270 END SUB 

34 wA SUB Bäitor(Titel$,äx,äy) STATIC 

835 HN | SHARED Lup() ‚Farbe,wk 

896 y52 WINDOW 3, Titels, (3,10)-(307,150) wk,2 
273 Farbleiste 

898 Bg farbkasten 0,Farbe,1 

899 SU IF äx=32 AND äy-16 THEN 

00 14 FUT(271,10),Lup,PsEr 

901 792 EISEIF dx=16 AND dy=16 THEN 

2 1W4 PUT(271,10),Musterfeld,PSET 

3X  Neuluster 

So w2 zu ır 

905 BL LINE(9,35)-(dx*6+10,4y%6+36) ‚1,6 
:LINE(270,9)-(271+44x,10+4y) ‚1,5 


O6 EB FOR 1-1 TO dx 

SO 3XR FOR j=1 10 dy 

908 URS LINE(i#6+4, j#6+30)-(1#6+9, j*6435) 

„POINT(1+270,3+9) ,bf. 

we 

930 122 NET 

LEN Inityaus 

‚912 P7 

913 U34 

4er IR mei AND (x>=10 AND x<=266 AND y>=10 AND y<=28) 
AND (POINT(x,y)<>1 OR x>=19 AND x<=25 AND y>=11 
AD y<=17) THEN 

2915 746 AltFarbe=Farbe 

AS ER Farbe=POINI(x,7) 

37% Farbkasten AltFarbe, Farbe,1 


GB Doa ELSEIF x>=10 AND x<=dxk6+9 AND y>=36 
AND y<=dy#6435 THEN 


219 af ENT( (x-4) /6) :yy=INT((y-30)/6) 

920 wu LINE(xx*6+4,yy%6+30)-(1x*6+9,yy#6435) ‚Farbe, br. 
921 ch PSET(270+xx,9433) ‚Farbe 

ac EWIF 

923 882 um 


ga 26 IF dx-32 AND dy-16 THEN 

925 pn.  GEI(271,10)-(302,25);Lup 

926 Ni2 EISEIF dx=16 AND dy=16 THEN 

927 vl GET(271,10)-(286,25) ‚Musterfeld 

928 un END-IF 

929 C& _ WINDOW close 3 

30 240 zw SUB 

931 SE, SUB Eingebefenster (Titel, Fragen) STATIC 

932 66 SHARED Inp$() ‚uk 

933 202 WINDOW 3,Titel$, (17,20)-(294,20+8%Fragen) ‚wk,2 

Ba WIDm 32 

933 8P FOR i=1 TO Fragen 

936204 PRINT Inp$(i,1); 

Bra LINE INPUT Inp$(1,2) 

938 Dr2 NEXT 

390 WINDOL cLosE 3 

0 =a WIDIE 255 

(1 DEO END SUB 

2 ME SUB Farbkasten(AltFarbe,Farbe,node) STATIC 

3 DI SHRD Tiefe 

944 802 IF node=0 THEN LINE(270,10)-(300,26),1,b 

5 Rt IF mode=O AND Tiefe=6 THEN LINE(285,10)-(285,26),1 

Helge IF Altfarbe<=31 IHEN 

UT 664 LINE(10+8#A13Farbe,10)-(18+8*AltFarbe,18),1,b 

ar zıse 

9 Zeh LINE(10+8*(AltFarbe-32) ,18) 
-{18+8#(AltFarbe-32),26),1,b 

02 Em ır 

93185 IF Farbe<=31 IHEN 


92m IF mode=0 THEN 

93 16 IF Tiefe=6 THEN 

‚954 368 LINE(271,11)-(284,25),Farbe,bf 
355 gt LINE(286,11)-(299,25) ‚Farbe+32,bf 


356 1x6 ELSE 
Listing 2. (Fortsetzung) 
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997 1g8 LINE(271,11)-(299,25),Farbe,bf 

338 0116 END IF 

En  ENDIF 

\ 960 p5\ LINE(10+8*Farbe,10)-(18+5*Farbe,18) ‚Farbe, b 
961 6p2 ELSE 

962 Wh IF mode=0 THEN 


HER.ERO END SUB 
‚969 ut SUB Farbleiste STATIO 
970 WR SIARED MaxFarben, Tiefe, AnzFarbReg 
E92  LINE(10,10)-(266,26) ‚1,6 
Va 7 LINE(10,16)-(266,18),1 
973 AR | IF Maxfarben<64 THEN LINE(10,18)-(266,26) ,1,bf 
WUk ek, IF Maxfarben<32 THEN LINE(1048% 
N MaxFarben, 11)-(17+8431,17),1,bf 
Var en | FOR AeD 10 Angfarbheg-i 
W7ONt4 LINE (10+8*1,10)-(104801,26),1 
arzt LINE (1148#1,11)-(17+8%1,17) 1,08 
978 do IF Tiefo=6 THEN LINE (1148#1,19)-(1748%1,25) ,1+32,bf 
979 au NEXT 
‚980 a0 END SUB 
98l eU Fensterrahnen,aus: 
9B2 Ab2 WIRSWINDON(T) 
983ed 1ayenksPEEKL(WINDOW(8)) 
934 08 _Layerinfoß=PEEKL(w1E+46)+224 
905 da bxisPEEKW(Layerk+16) 
by1=PEEKK(1ayer&+18) 
PX=PEEK (wii+54) HPEEK(w1&+56) 
Py=PEEK(w16+55)+PEEK (w1&+57) 
POKEL wi8+54,0 
RefreshWindowFrame! wik 
Movelayer! layerinfoß,leyer&,-bxl,-byi 
Sizelayer! layerinfoß,leyerk,px,py 


SS ‚Od SUB Filename(Titel$,Nanß,Suffix$,moded,length) STATIC 
995 Wk SHARED Inp$() ‚Fehlerir 
996 862 FehlenNr=0 
RM  Inpf(1,1)="Filenane => ” 
Bingabefenster Mte1$,1 
Nang=Inpß(1,2):IF Nanf=”" THEN EXIT SUB 
DateiVorhanden Nanf+Suffix$, Erg 
IF modeg= "0" THEN 
IF Erg THEN 
Inp$(1,1)="Trotzden speichern => 
Bingabefenster "File existiert bereits 
£ TR VCASESCInp$(1,2)) <> "7" THEN Nang= 
1006 134 END IF 


door g22 ELSE 

‚1008 JE4 IF ErgsO THEN 

1009 Kx& Inp$(1,1)="Falsches File oder Verzeichnis!” 
1010 ND. Ausgabefenster "ACHTUNG! *,1:Nan$=""” 


lol R4 END IF 

2012 092 END IF 

Ma iR IF Nanp<>"" AND length>0 THEN 
OPEN moda$, #1,Nang+Suffix$, Length 

PN ‚080 END SUB 

‚1015 Ri SUB HoleSpeichen(gr&) STATIC 

1016 092 gri& = grürd 

107 üg rk = AllocYenk(griß,cLNG(21643)) 

\NORS UN IF gn& = 0 THEN ERROR 255 

1019 u6 POKEL gr&,grik 

Burke = grkrd 

(0, END SUB 

1022 08 SUB InttMaus STATIC 

1023 Ya2 WHLLE NOUSE(0)< >0:WEND 


1025 04 SUB Lies(AnaBytes,Text8) STATIC 
1026 17 SHARED Dateik,Diskk 
‚Read&(Dateik,Disk&,Anzöytes) 


1028 vb 

1029, wa TO Anabytes-1 

1030 Fa _ Text$=Textg+ChR$(PEEK(Diek&+1)) 
‚2031 in2 NEXT 

1032 g10 END SUB 


1033 Ky SUB LiesBis (x8) STATIC 
1034 OR SHARED Dateik,Diskk 


963 776 LINE(271,21)-(284,25) ‚Farbe, bf 
964 To LINE(286, 11) -(299,25) ‚Farbe-32,br° 
\965 v4 END IR 

966 0] | LINE(1048K(Farbe-32),18)-(18+8*(Farbe-32)‚26) ‚Farbe,b 
967 %02 END IF 


1035 012 
1036 A 
1937 Ind 
1038 9x 
2039 s16 
1040 41 
3041 ju4 
10a 732 


1043 rtO END SUB 
1044 Ik |SUB NekeBitplanes(Anz.Bitplanes) STATIO 


1049 402 
1046 Pr 
2047 N 
1048 MG 
1049 
1050 RK4 
1051 Er6, 
1052 37. 
21053 2u8 
1054 x6 
1059 P7 
1056 yr6 
1057.28 
1058 9&4 
1059 hF 
1060 30 
X061 122 
1062 kl4 
1063 67 
2064 5A 
1065 En6 
1066 5K 


1067 Na 
‚2068 J04 
1069 E42 


‚1070 IK0. END SUB 
1071 22 SUB Musteräktiv STATIC 
1072 01 SHARED Muster& 


1073 752 FOR 120 70 95 
1074 Vn4 POKEN Nusten+ir2, Musterfeld(1+3) 
1075 Qv2 NEXT 

1076 JO | POKEL WINDOW(8)+3,Muster& 

1077 68 POKE WINDOW(8)+29,252 

1078 980 END SUB 


1079 an SUB Neufuster STATIC 


1080 rt2 


2081 1V0 END SUB 
1062 1P Falettennaus: 
2083 502 
1084 Nu 
1089 Ond 
2086 


x1$="" 
WEILE x1$<>x8 
Lies 4,x1$ 
IF x18<>xg THEN 
Lies 4,$:a=CVL(a$) 
Lies a,a8 
END IF 
WEND 


Ser.Tiefe =PEEK (PEEKL(NINDOW(B)+4)45) 
‚Sor.BreitesPEEKW(PEEKL(FINDOW(8)+4)+0) 
Sor.Hoehe =PEEKW(PEEKL(WINDOW(8)+4)+2) 
Speicher&«Sor.Breitensor.Hoehe 
IF Anz.Bitplanes>Sor.Tiefe THEN 
FOR {sSer.Tiefe+L TO Anz.Bitplanes 
BitPlanek=AllooMen&(Speicher&, CLNO(Z16+2°1)) 
1F BitPlaneLeO THEN 
POKE PEEKL(WINDOW(8)+4)+5,4-1 
RenakeDisplayl 
ERROR 255 
END IF 
POKEL PEEKL(WINDOK(8)+4)+4+4%1,BitPlane& 
NEXT 
POKE PEEKL(WINDOR(8)+4)+5, Anz. Bitplanes 
RemakeDisplay! 
ZLSEIF Anz.Bitplanes<Sor.Tiefe THEN 
FOKE PEEKL(WINDOW(8)+4)+5, Anz. Bitplanes 
RenakeDisplayt 
FOR AsAnz.Bitplanes+1 TO Sor.Tiefe 
BitPlaneksPEEKL(PEEKL(WINDOW(8)+4)+4+44%1) 
IF BitPlanek< >0 THEN FreeMem! BtPlane%, Spelcherk 
ELSE BEEP:PRINT 1 
POKEL FEEKL(WINDOW(8)+4)+44401,0 
NEXT 
END IF 


FOR 1=0 10 98:Mustenfeld(1)=0:NEXT 


Mausknopf?=NOUSE(0) :back=0 
IF Mausknop?<>0 THEN 
xsHOUSE(1) :ysNOUSE(2) 
IF (x>=10 AND x<=266 AND y>=10 AND y<=26) 
AND (POIND(K,y) <>1 OR x>=19 AND x< #25 AND y>ell 
AND y<=17) THEN 
AltFaxbesFarbe 
Farbe=POINT(x,y) 
Farbkasten AltFarbe, Farbe, 
Balken Farbe 
EISEIF x>10 AND x<138 AND y>31 
AND y<55 AND Farbe<=31 THEN 
ROB.Wert Farbe,n,g,b 
IF y>31 AND y<39 THEN 
reINT((x-10)/8) 
BLSEIF y>39 AND y<47 THEN 
geINT((x-10)/8) 
BLSEIF y>47 AND y<55 THEN 
beINT((x-10)/8) 
END IF 
PALETTE Farbe,r/16,8/16,b/16 
Balken Farbe 
EISEIF x>150 AND x<170 AND y>31 AND y<55 THEN 
back--1 
EISEIF x>180 AND x<220 AND y>31 AND y<55 AND Farbe 
<e31 THEN 
PAINT (181,32),KaxFerben-i AND 3,1 
VHILE NOT((x>=10 AND x<=266 AND y>=10 AND y<=18) 
AND (POIND(x,y)<>1 OR x>=19 AND x<=25 AND y>eil 
AND y<=17)) 
meO:WEILE meO:n-HOUSE(0) :WEND 
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auoaza 
1109 Rb 
1110 196 
1131 40 
1112 ax 
A113 ya 
1114 10 
ERLURC) 
1116 aK 
dir nya 
a1ıa er 
1119 806 
1120 VIA 


121 316 


A122 vr 


1123 fu8 
124 pa 
A125 hr 
4126 dp8 
ular gr 
1128 gD 
1129 2 
1130 894 
131 656 
1132 
1133 


Spiel 
der alten 
Agypter 


Kennen Sie Kalaha? 
Dieses klassische 


Strategiespiel be- 
sticht durch einfa- 
che Regeln und sei- 
ne Stellungsvielfalt. 
Kämpfen Sie zu 
zweit um die Kugeln 
der Weisen. 


Von Dr. Rudolf Egg 
und Jochen Zügge 


alaha oder Kalah ist ein 
Spiel aus der großen 
Familie der Mandala- 


spiele, welches vor über 3000 
Jahren in Ägypten erfunden 
wurde. Man fand in Stein ge- 
hauene Spielfelder in den Tem- 
peln von Theben (ca. 1400 v. 
Chr.), Karnak, Luxor und in der 
berühmten Cheopspyramide. 
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Bild 1. Die Grundstellung von Kalaha. 6 x 6 Steine auf jeder 
Seite in den Farben Grün und Blau. 


Durch Händler gelangte das 
Denkspiel später bis nach 
Asien und Afrika, wo es heute 
auch in manchen Ländern als 
Nationalspiel gilt. Sklaven 
brachten es später auch nach 
Südamerika und Westindien. 
Dadurch entstanden zahlreiche 
Varianten. Besonders in Afrika 
spielt man Kalaha häufig auch 
in Mulden, die einfach in die Er- 
de gegraben werden. Bohnen, 
Erbsen, Steine, Muscheln oder 


Holzstückchen dienen dann als 
Spielsteine. 

Trotz seines hohen Alters ist 
Kalaha wie für den Computer 
geschaffen: Es hat eine sehr 
klare Struktur, wenige Grundre- 
geln, aus denen aber komplexe 
Spielsituationen resultieren 
können. In der hier vorgestell- 
ten Amiga-Version von Kalaha 
überlegen Sie lediglich den 
Zug, der Computer führt ihn 
dann schnell und sicher aus. 
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Neben einer Simulation des 
Brettspiels für zwei Personen 
bietet Ihnen dieses in Basic ge- 
schriebene Programm auch die 
Möglichkeit, gegen den Com- 
puter zu spielen. Passen Sie 
aber auf: Der Computer ver- 
zeiht Ihnen keinen Fehler! 

Das Spielbrett von Kalaha ist 
in die eigene und die gegneri- 
sche Hälfte aufgeteilt. Jede 
Spielhälfte besteht aus sechs 
Spielfeldern und einer »Spar- 
kasse« (Bild 1). In jedes kleine 
Feld kommen zu Beginn sechs 
Spielsteine, die großen Felder 
(Sparkassen) bleiben zunächst 
leer. 

Die Spieler sind abwech- 
selnd am Zug, wobei ein Zug 
wie folgt abläuft: Man klickt ein 


der Spieler darf in diesem Fall 
noch einmal ziehen. 

Eine der besten Möglichkei- 
ten, dem Gegner ein Schnipp- 
chen zu schlagen, ist der sog. 
»Raubzug«. Dabei fällt der letz- 
te Spielstein in ein eigenes, lee- 
res Feld. Die Spielsteine des 
gegenüberliegenden gegneri- 
schen Feldes dürfen dann ein- 
gezogen und in der eigenen 
Sparkasse abgelegt werden 
(Bild 3). Die magische Zahl ist 
hierbei die 13, denn mit dieser 
Anzahl von Spielsteinen ergibt 
sich ein kompletter Rundlauf 
um das Spielbrett. Der letzte 
Stein fällt dann wieder in das 
(jetzt leere) Feld, aus dem man 
die Spielsteine aufgenommen 
hatte. Nach diesem Zug darf 


An An HA] 


Eine weitere Erschwernis bringt 
ein Spiel mit einem fixen Zeitli- 
mit pro Zug, weil Sie hierrasche 
und dennoch sichere Entschei- 
dungen treffen müssen. 


Bedienung 
des Programms 


Das Programm »Kalaha« ist 
in Amiga-Basic geschrieben 
(Listing 1). Sie können es ent- 
weder mit Hilfe des Checksum- 
mers von Seite 126 eingeben 
oder die Programmservice-Dis- 
kette bestellen, auf welcher sich 
auch eine compilierte Version 
des Spiels befindet. Im Listing 
sind viele Kommentare enthal- 
ten, damit auch Programmier- 
neulinge den Programmablauf 


OHSSIBNIOEHENNZUGGE 


Bild 2. Ein »Kalaha«-Zug ist geglückt. Sie dürfen gleich noch mal ziehen 


eigenes Feld an, wodurch sich 
dieses entleert und die in Ge- 
genuhrzeigersinn liegende Fel- 
der je um eine Kugel auffüllt. 
Dabei wird nur die Sparkasse 
des Gegners nicht durchlaufen. 


Die Spielregeln 
im Überblick 


Das Ziel des Spiels ist es, 
durch diese Spielzüge mög- 
lichst viele Steine in die eigene 
Sparkasse zu bringen, bis der 
Gegner nicht mehr ziehen 
kann. In der Regel hat jeder 
Spieler nur einen Zug, dann 
folgt der Gegner. Fällt jedoch 
der letzte abgelegte Spielstein 
in die eigene Sparkasse, so gilt 
dies als »Kalahazug« (Bild 2), 


man allerdings nicht noch ein- 
mal ziehen. 

Das Spiel ist beendet, wenn 
einer der Spieler zugunfähig 
ist, d.h., daß keine Spielsteine 
mehr in seiner Spielhälfte lie- 
gen (außer in der Sparkasse). 
Der andere Spieler darf dann 
alle restlichen Spielsteine sei- 
ner Hälfte in seine Sparkasse 
legen. Gewonnen hat derjeni- 
ge, der insgesamt mehr Spiel- 
steine in seiner Sparkasse 
sammeln konnte. 

Das klingt zunächst sehr ein- 
fach. Sie werden jedoch fest- 
stellen, daß es gar nicht so 
leicht ist, die resultierenden 
Spielstellungen im voraus rich- 
tig zu berechnen und den ge- 
schicktesten Zug auszuwählen. 
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nachvollziehen können. Zur bes- 
seren Übersicht wurden einzel- 
ne Abschnitte in Unterprogram- 
men zusammengefaßt, außer- 
dem wurde viel mit Library-Funk- 
tionen gearbeitet, die den Pro- 
grammablauf stark beschleuni- 
gen. Deshalb müssen auch im 
selben Verzeichnis wie »Kalaha« 
oder im Libs-Verzeichnis fol- 
gende Dateien stehen. 
- intuition.bmap, 
- graphics.bmap, 
- exec.bmap, 
- diskfont.bmap 

Wie Sie zu diesen Dateien 
kommen? Normalerweise be- 
finden sich diese Dateien auf 
Ihrer Extra-Diskette im Ver- 
zeichnis »BasicDemos«, wenn 
nicht, müssen Sie sie selbst er- 


Kurzinfo: Kalaha 


Programmart: 

Strategiespiel 

Spielziel: 

Auf einem Spielbrett werden 
abwechselnd Spielsteine in 
nächstliegende Felder und in 
eine »Sparkasse« abgelegt, bis 
einer der Spieler nicht mehr 
ziehen kann. 

Laden und Starten: 

Durch Anklicken des Kalaha- 
Piktogramms von der Work- 
bench aus oder über das CLI 
durch die Eingabe von »Ka- 
laha«. 

Steuerung: 

Mit der Maus, Grundeinstel- 
lung auch mit Tastatur möglich 
Besonderheiten: 

Ein- und Zweispleler-Modus. 
Frei wählbares Zeitlimit. 
Programmautor: 

Jochen Zügge 


stellen. Eine genaue Anleitung 
zum Erstellen dieser Dateien 
finden Sie im AMIGA-Magazin 
1/89 auf Seite 147. 

Die Bedienung von »Kalaha« 
erfolgt vollständig mit Hilfe der 
Maus, jedoch einige Funktio- 
nen lassen sich auch über die 
Tastatur steuern. Nach dem La- 
den des Hauptprogramms wer- 
den zuerst Library-Funktionen 
und Unterprogramme nachge- 
laden, dann verschwindet der 
Screen und (mit Hilfe des Libra- 
ry-Befehls »Open Window«) 
wird ein randloses Fenster ge- 
öffnet. Nachdem vom Pro- 
gramm die Grafik der Spielflä- 
che aufgebaut wurde, taucht 
der Bildschirm wieder auf. Im 
Informationskasten unter den 
Spielfeldern erscheinen nach- 
einander mehrere Fragen, mit 
denen die Grundeinstellungen 
des Spiels vorgenommen wer- 
den: 

Soll der Computer einen Spie- 
ler ersetzen? 

Ist dies nicht gewünscht, so 
betätigt man mit Hilfe der linken 
Maustaste das Nein-Feld. An- 
dernfalls klicken Sie bitte das Ja- 
Feld an, und es erscheint die 
nächste Frage: 

Welche Farbe soll der Compu- 
terspieler haben? 

Sie haben dabei die Wahl zwi- 
schen Grün und Blau, entschie- 
den wird wieder durch Anklicken 
des entsprechenden Feldes. 

Die nächste Frage des Com- 
puters lautet: 

Welche Farbe soll das Spiel be- 
ginnen? 

Entscheiden Sie per Maus- 
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Bild 3. Mit einem »Raubzug« räumen Sie gleich ein ganzes Spielfeld Ihres Gegners leer 


klick, und es erscheint die letzte 
Frage: 

Wird ein bestimmtes Zeitlimit 
gewünscht? 

Ist dies der Fall, so verwandelt 
sich der linke Schalter in einen 
Schieberegler. Das Auswählen 
des »Knopfes« und gleichzeiti- 
ges Verschieben der Maus ruft 
eine Veränderung des Zeitlimits 
für einen Spielzug hervor. Das Li- 
mit kann stufenlos zwischen fünf 


Sekunden und zwölf M 
geregelt werden. HateinSp 
nach Ablauf dieser Zeit noch 
nicht gezogen, so gewinnt auto- 
matisch die andere Farbe. Als 
‚Anfänger sollten Sie deshalb. das 
Limit nicht zu eng wählen 
Statt jeweils den gewünschten 
Schalter mit der Maus 
klicken, kann man bei diesen 
Fragen auch für den linken 
Schalter auf die Taste »4« und für 


den rechten Schalter auf die Ta- 
ste »6« drücken, Vorzeitig been- 
den läßt sich das Spiel mit der 
ESC-Taste. 

Zur Ausführung eines Zuges 
wird lediglich ein Feld der eige- 
nen Farbe mit der Maus ange- 
klickt. Das Programm führt da- 
nach den Spielzug automatisch 
aus. Wenn es kein Kalahazug 
war (Anzeige im mittleren Infor- 
mationskästchen beachten!), 


ist anschließend der Gegen- 
spieler (oder der Computer) an 
der Reihe. Das Infokästchen in 
der Mitte rechts erscheint nun 
in der Farbe des am Zuge be- 
findlichen Spielers. Haben Sie 
ein Zeitlimit gewählt, so wird 
dort auch die verbleibende Zeit 
des Spielers angezeigt. Wurde 
keine Zeitbegrenzung gesetzt, 
erscheint anstelle der Zeit le- 
diglich der Hinweis »genug«. 

Als Pausentaste dient das 
»p«, die aber nur dann aktiviert 
werden, kann wenn der Com- 
puter nicht am Zug ist, Beendet 
wird die Pause mit dem erneu- 
ten Drücken auf die »p«-Taste, 

In der oberen Hälfte des In- 
formationskastens erscheinen 
gegebenenfalls die Namen der 
verschiedenen Züge (»Kalaha- 
zug«, »Raubzug«). Ist der Com- 
puter an der Reihe, verändert 
sich der Mauszeiger in eine 
»Ich denke«-Schrift, 

Das Spiel ist beendet, wenn 
die Farbe des Gewinners ange- 
zeigt wird. Wollen Sie Kalaha 
erneut spielen, klicken Sie das 
Gadget »Neues Spiel« an. Das 
Programm verzweigt jetzt wie- 
der zum Unterprogramm 
»Grundeinstellung«, d.h., 88 
sind wieder die Eingangsfragen 
nach Spielart, Zeit usw. zu be- 
antworten. Soll das Programm 
verlassen werden, klicken Sie 
auf das »Ende«-Gadget oder 
drücken Sie die ESC-Taste. Der 
Screen verschwindet für kurze 
Zeit, und Sie befinden sich wie- 
der aufdem Workbench-Screen. 

Viel Spaß beim Herauskno- 
beln der richtigen Züge. pe 


3 ee 
4 PU CLEAR ‚400008, 10000 
5 se DEFINT a- 


22 ji GOSUB Neullin 


INEUUEUUEERUEURLUTLNNEREELEEUEE 


Programmname: Kalaha 
Computer; A500, A1000, 
‚A2000 mit Kickstart 1.2 & 13 
Sprache: Amiga-Basic 
Jochen Zügge 


18) 


Seite 126 eingeben. 


nalfontk) 


Listing 1. »Kalaha«. Bitte mit dem Checksummer auf 


c2%,0,8) 'Sereenruterser. 


farb(n) MOD 2'8 


"Nauszeigeraus 


AMIGA-SONDERHEFT TO. 0000 
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4OFg  CALL Freekemenber&(rk&,-1) 
"50. OALL Olosewindow&(wind) 
NS RN FOR {53 70 1 STEP -1 

DR ra geINT(1/5):CALL MoveScreenk(scr&,0,-g) "Screenraufser. 
3 IYL NEXT 1 

54 Wk LIBRARY CLOSE 

5 dYO END 
\96.dV REM ---. 
AURR Speioherinit: 

58 Oti, DIM fe1d(13)‚feldo(13)‚teldn(13) ‚merktarb(7) 

59 Ti DIM 20(70) ‚en(70),2d(70) ‚nbok(1) ‚negk(2) 

SOME anth=3+(ZT16) :vok&e0:nklaVARPTR(rekE) 

ei po  mbdßeAllooRemenber&(rk&,62,urtk) \ündgetBorderDaten 

se rg menß=AllooRemenber&(rk&,56,artk) 'WindowStruktun 

63 75. mißeAllooRemenberk(rkk,100,art8) 

"MauszeigerDaten(Warten) 

64 09 m2W=hllooRemenberk(rk6,100,art4) "Nauszeigerdaten(Pfeil) 
68 1, mpräshllookemenber&(rk4,30,arth) 'FropgadgetStruktun 
66 06 mreßällooRemenberk(rk&,100,artk) 'Propgadgetäutoknob 

67 X meg&(O)=AllocRenenberk(1kk, 30, artk)!\ 

68 In megs(1)=AllooRemenberk(rkk,50,art&) '-GedgetStrukturen 
ty  megk(2)=AllooRemenberk(rk&,50,urts)/ 

70, 060 RETURN 

MU fB Neußchrift: 

72 XPL sork=PEEKL(WINDOW(7)446) "Screen 

av | rpb=sorktB4:vphesorkt44 'Rastport,Vieuport 

FIN Schriftnaneg="ruby. font ”+CHRI(0) 

Tona tak(0)=SADD(Schriftname$) :tak(1)=15*(216)+98 

76 56  fontkeOpenDiskFont&(VARPTR(ta&(0))) 

77 mi  normalfont&=PEEKL(rp&452) 

78.08 IF font&<>0 THEN CALL SetFontk(rp&, fontk) 

79 DR FOR i=1 10 53 

80.403 g=INT(1/5):CALL MoveScreenk(scr#,0,8) "Sereenruterser. 

81 Kol NEXT A 

82.R6  WINDON CLOSE 1 

83 hJ0, RETURN 
84 NO Caagetvorbereitung: 
"Zt DATA 0,0,309,0,309,26,310,0,310,27,1,27,1,1,0,27,0,0 

N FOR 1-0 10 35 STEP 2 
READ b:POKEU mba&+(1),b 


"Speicherfrei 


„Unterprogrannne 


NEXT 
bord=0; /0&(1):GOSUB Border 
| bord=1:v=2:nbo&=0:G0SUB Border 


GOSUB Propgad 
Gflge2:gact=1:gtyps1:gen&enbok(0) :gselä-nbok{1):spe1&-O 
(GOSUB Gadget 
gdx=321:00SUB Gadget 
giyp=3:genkennek:gsel&-O:speid-mpr& 
genums2:göx=8:G0SUB Gadget; 
‚97 v0. RETURN 
98 20 Border: 
99 JEL nbo&(bord)=Allochenenberk(rk&,30,artk) 'f.Borderstruktur 
00 BA FOKEW mbo&(bond) ‚O:POKEW mbo&(bord)+2,0 
101 2)  FOKE mbo&(bord)+4,v:POKE mbok(bord)+5,0 
102 PC POKE mboß(bord)46,1:POKE nbo&(bord)+7,9 
103 »P  POKEL mbok(bord)+8,mba:POKEL mbok(bord)+12,nbok 
104 260, RETURN 
109 KL Propgad: 
106 &Ul DATA 3,0,0,91,65734,0,0,0,0,0,0,0 
07 9Q FOR 1e0 10 20 STER 2 
308 043 READ a:POKEW mpr&+(1),a 
109 082 NEXT i 
210 80, RETURN 
411 xC Ondget: 
42 Q71 IF gdnum<2 THEN ngd&=meg&(gdnum+1) ELSE ngd&«0 
3 hV | POKEL negA(gänum) ‚ngd&:POKEW megk(gänun) +4 ,gdx. 
JA OR POKEW meg&(gänun)+6,224:POKEN meg&(gdnum)+8,311 
115 ne | POKEW mog&(gdnun)+10,28:POKEW meg&(ganum)+12,gf1g 
116 NT POKEW meg&(gdnum)+14,gaot:POKEW negs&(gdnum)+16,gtyp 
117 Al POKEL negk(gdnum)+18,genk:POKEL negk(ganun)+22,gse1& 
118 86 POKEL meg%(gänun)+26,0:POKEL negu(ganun)+30,0 
19 ge POKEL megk(ganun)+34,spoik:POKEW megk(gänun)+38,0 
120 04 POKEL mags(ganun)+40,0 
‚121 IVO RETURN 
122 Ya Meukin; 
123 281 DATA 0,0,2,0,4,640,6,256,38,640,40,256,42,640,44,256,46 
124 dB DATA 1,8,0,9,1,10,2097272,14,137728,22,0,26,0,30,0,34,0 
las yv | FOR #1 TO 9:READ a&,b&:POKEW menk+a&,b&:NEXT 
126 tr FOR 1=1 10 2:READ a%,bE:POKE menk+ak,bA:NEXT 
327 yh TOR 1=1 10 6:READ aß, b&:POKEL' menk+aß, b&:NEXT 
128,48 POKEL mend+18,meg& 


129 hg 
130 840 
131 Ha 
232 eiı 
133 rK3 
134 bri 
135 sit 
136 13 
137 eul 
238 RA 
139 4K 
A40 HX 
141 al 
22 W0 
143 0m 
1a yr 
145 60 
146 Ip 
17 310 
148 Cs 
149 wor 
150 a1 
151 0v 
152 zu 
153 uk 
154 223 
155 065 
156 Hv2 
157 +1 
158 vo 
159 80 
160 a3 


191 arı 
192 mb 
193 mi 
194 Sp 
195 nt 
196 KV 
197 533 
198 ml 
199 en5 
200 xK 
201 12 
202 003 
203 av 
204 5e1 
205 xs 
206 w2 
207.333 
208 8h 
209 135 


wink=Openkindov&(nen&) 
RETURN 
Mauszeiger: 
FOR i=0 TO 50 STEP 2 

READ sd$:POKEW m2&+1,sd# AND 65535& 
NEXT I 
FOR 1«0 TO 71 STEP 2 

READ säg:FOKEN mi&+1,sd$ AND 65935% 
NEXT i 
REM AHRHRREHeEELEHHHEERRH 
DATA. 80, 6HO, &HFOOO, &HFOOO, &H4FOO, AH3FOO, AH2OFO, &HLRRO, 
DATA AHL3OF, AHOFF,LH9F2, 81700, 14a, LH3BB, AH248, AHLFO 
DATA 841110, AHEO, BHAO, UH4O, BHO, AH, BHO, 410, 2110, BO 
REM ee ERNEHHHHHEHHHHeH 
DATA &HO, 8H0, 81880, 80, 81880, 840, HBCO, BH200, AHGAO, KHBAO 
DATA &HC80,8H8AO, &H400, &HCAO, &HO, &HBAO, &HO, &HO, &H2O40,&HO. 
DATA 832040, AHO,6H6954, 12010, SIBGEA, LH24E2, &HOAAC, EHBAEC 
DATA 8311000, BHB2DB, BHO, &HGED6, 10, iO, 840, &HO 
RETURN 
Bildschirmaufbau: 
schel "Schatten 
sekundenmerk=5:minutenmerk=0 
REN Hmm Parbenbest immens ++ 
ombPEERL(vp&+4) "Colormap 
FOR i=0 70 17 SIEP 17 

FOR j=0 10 3 

ne1/4.25+Jmerkfarb(n)=GetRöß4&(om&, 144) 

NEXT J,1 
meINT(merkfarb(0)/28) :frestsmerkfarb(0) MOD 28 
QneINt(frest/2%) :bn=Frest WOD 24:rerm:gegn:bsbn 
WHILE r+4g+b>0 

Fer-1:geg-1; 

Ir r<o THEN 


-1 


IF g<o THEN 
IF b<O THEN 
FOR j=1 70 100:NEXT j 
CALL' SetRGB4&(vpk,0,r,g,b) 
WEND 


CALL SetRGB4&(vp&,1,11,9,7):0ALL SetRCB4&(vpL,2,3,6,4) 
GALL SetRGBL4u(vp&,3,3,4,6):CALL SetROB4&(vp&,17,2,2,2) 
CALL SetRGB4&(vp&,18,4,4,4):CALL SetRCB4&(vpL,19,6,6,6) 
REM HH Kalahaschriftzug zeichnen 
tex1$="-K-A-L-A-H-A-" 
;ex28="1989 BY JOCHEN ZÜGGE” 
CALL SetDr#d&(rp%,0) 
31=0:22=16:yl=0: 
FOR fw=1 70 4 
xlexit2:n22x2-2:yleyl+liydey2-1:Parsfar+pn:pns-pn 
CALL SetAPen&(rp&, far) 
FOR ysyi 10 y2 
FOR x=x1 TO x2 
CALL Move (rpk,233+x, 1547) 
CALL Textä(rp&,SADD(tex18) LEN(tex1$)) 
CALL Novek(rpk, 173+x,40+3) 
ALL Textä(rp&, SADD(tex2$) ‚LEN(tex2$)) 
NEXT xy, Pu 
REM HH Infokasten zeichnenttrttttHrrrrtttt 
x1«0:y1e160:y2=255:x2«639: fp=O:pnel 
FOR fuel 70 4 
fpefprpn:pne-pn. 
OALL SetAPen&(rp&,£p):CALL ReotFill&(rpk,xi,yl,x2,y2) 
xlaxird:ylaylrlıx2axa-2:y2eya-i 
NEXT tw 
CALL SetAPenk(sp&,1) 
CALL Movel(1p%,7,222) :CALL dravk(rpk, 632,222) 
REM AHeHeeereeröp el feldzeIchnentHmrtnhrHeHH 
fürl 
FOR xpaO TO 959 STEP 559 
xlexp:yl=60:x2ex1480:y2e140:fanfarl:tpsl:pne-1 
FOR fw=1 10 3 
fpefp+pn:pn=-pn:CALL SetAPen&(rp&,£p) 
CALL ReotFill&(rp&,x1,y1,x2,y2) 
xlexl+2;yleyl+l:x2exQ-2:y2ey2-1 
NEXT fu 
CALL SetAPen&(rpk,?a):CALL RectFill&(rp&,x1,y1,x2,y2) 
NEXT xp 
fa=1 
FOR yp=60 TO 100 STEP 40 
fasfarl 
FOR xp=79 TO 479 STEP 80 
xlexp:yleyp:x2=x1+81:y2eyl+40:fpel: 


=1:far=0 
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List INGS 


210 zu 
2uL ay7 
212 ww 
213 ul 
214 005 
215 yh3 
216 yBı 
au 92 
AU 10 
219 bs 
‚220 qB3 
221 NO 
222 tk 
223 W8 
224 dn3 
225 Akı 
226 000 
227 ck 
228 BEL, 
229 1a 
230 n2 
231 de 
232 4x 
aaa N 
234 Av 
234 BV 
236 5A 
arm 
238 DI 
239 KQ 
240 Cu 
24ı Yo 
aA2 ah 
243 DU3 
24h X02 
KO 83 
246 und, 
247 Ov 
248 N) 
249 11 
250 hi 
251 ut 
292 Ve 
253 PS 
294 ah 


286 3r1 
287 &1 
288 DR 


FOR tu-1 u 
pe pe en Seärenä(rpL, ftp) 
CaLE B  n,22,72) 
Korte 272-1 
NEXT De 
CALL Setkreil Be == r1118(rp8,x1,y1,x2,72) 
NEXT xp, yP 
REM He anyeuser raufsorollent+ 
(CALL SetPoimtemllee = 36, -1,0) 'Hauspfeil setzen 
FOR 1-0 TO 1 
adk- Adi) 1) 'Gadget in Liste setzen 
CALL Onteägenilm 0) Gadget anschalten 
NEXT 
FOR 1-53 TO 2 EEE 
geINT(1/0)-EE Wen (s:74,0,-8) "Soreenraufser. 
NEXT A 
RETURN 
Grundeinsteitung“ 
CALL SetAPenllmiAäl ulEE Best1114(rp%,8,163,632,221) 
a — ee Eee 55 
conputer=D:zeitieiigiuunn 
giexde "Soll Mer Sn einen Spieler ersetzen?” 
GOSUB Gadgerseet 
atoxde "Ja atgetbeschrirtung 
texte Met Saigetbeschriftung 
GOSUp TDOPEEEÄ EEE Undgetsbtrage 
Berge a  Gaägetbeschriftung 
groxde Bl Gnägetbeschriftung 
IF Links) TEEN Aether inmung 
gioxge Welche Burte sell er haben?” 
GOSUB Ondgentears 
GOSUB TORE Gngerabtrn, 
Ir Linke TuEE 
Vomputern isn inee 
ELSE 
Gonputern-icigmenE pa} 
END IF 
farbbestiuuug: 
gtoxg=ielie Werte s=11 das Spiel beginnen?” 
GOSUB Gadgwrteer 
COSUB IDOMBEeEHUEUS Gadgetabfrage 
IF Linke TEEN apleler--1 ELSE spieler-1 
gtext» Wellen Sie ein vestinntes Zeitlimit?” 
gtexde "Zn tiliresnsnnEUS Ondgetbeschriftung 
guexde Wein "slires1:00SUB Gadgetbeschriftung 
GOSUB IOOMEFTeL-G0SUS Gndgetabtrage 
1P Minis TEEN Seitie-1 ELSE GOTO keinzeitlinit 
CALL Offündgesälmegt(0) ‚wink,0) 
Tenpräeiemeneüeögetä(uinß,meg&(0)) 
GOSUB Gadgetbeschriftung 
gaöbsaöiietgers(wini,negk(2) -1) 
CALL Ornigetk(segk(2) ‚vink,0) 
ylelBT:gtext= Bitte stellen Sie die gewünschte Zeit ein” 
GOSUB Gaigettert 
yie2i0:gtexs= Minuten: 0+SPACES(3)+ "Sekunden: 


REM Hemmtteträbfrage des Proportionalgadg. HH 
s=-1:5eksseiuedennerk:nineminutennerk:min2=-1:G0SUB 
Anzeige 
WEILE & 
me&-FEERL[wind486) 
abfrageprop: 
messh=GetMsg&(mek) :IF mess&eD THEN abfrageprop 
elassk-PEEKL(ness4+20) :codef=PEEKK (mess&+24) 
x=PEEKW(messk+32) :CALL ReplyMsgk(messk) 
IF code$=27 THEN Ende 
IF codeg=54 THEN a=0 
IF elasst=64 OR olass&=32 OR PEEKW(mpr&)>255 THEN 
IF x>320 AND elassh=64 THEN a=0 
zeitt=INT((PEEKW(npr&+2) AND 655358) /91.69734)+5 
IF zeit2<>zeitt THEN 
min-INT(zeitt/60) :sek-geitt-(minx60) 
GOSUB Anzeige 
END IF 
END IF 
geit2ezeitt:min2=min 
VEND 
sekundennerk-sek:minıtennerkenin 
CALL OFFGedget&(meg&(2) ‚wink,0) 


!Gadg. ausschalten 


renpräsRemovegadget&(win&,meg&(2))'Cadg. aus Liste entf. 
gedß-hddGadgetk(wint,neg&(D),-1) 
"Gadg. in Liste schreiben 


CALL OnGadget&(meg&(0) win&,0) 'Gadg. anschalten 


\ keingeitlinit: 


gtex$= Neues Spiel’:1ire=0:608UB Gadgetbeschriftung 
gtex$="Ende”:1ire=1:G0SUR Gadgetbeschriftung 

REM HH Aufbau von Spieloberfläche HHHHHHHHHrt 
ALL ReotFil1&(rp&,8,163,632,221) 
:CALL ReotFil1&(rp8,399,162,400,222) 


tex$="Zugstatus. 
FOR y«187 TO 210 STEP 23 
CALL SerAPen&(rp&,1) :CALL Movek(1p&,35-Sch,y-sch) 
CALL Text&(rp&,SADD(tex$)LEN(tex$)) 
CALL SetäPen&(rpk,0):CALL Movek(rp&,35,y) 
CALL Textä(rp&,SADD(tex$) ‚LEN(tex3)) 
texße Verbleibende Zeit... 
NEXT y 
CALL SetAPen&(rp&,1):CALL ReotFil1&(rp%,403,164,630,220) 
CALL SetAPenk(rpk,0):CALL RectFi11%(rp,405,165,628,219) 
FOR 1=0 TO 12:feldß(1)=6:NEXT 1 
fe1d(6)=0:fe18(13)=0:G0SUB Spielstand 
rane-1 
GOSUB Andererspieler 
RETURN 
Anzeige: 
m$=STR$ (min) :a9=STR$ (sek) 
IF min2< >nin THEN 
CALL, SetäPent(vpL,0) 
CALL ReotPilik(rpk,266,193, 311, 1) 
CALL SotAPenk(rpk,1):CALL Movek(1pk,270-ch,yL-sch) 
CALL Text&(rpk,SADD(m$) ‚LEN(mP)) 
CALL SetäPenk(zpk,0):CALL Hovek(rp&,270,y1) 
CALL Textä(rp&,SADD(m$) ‚LEN(m$)) 
END 1F 
CALL SetäPenk(rpk,0) 
CALL ReotPillb(rpb,425,193,474,y1) 
CALL SetAPen&(rp&,1):CALL Movek(rp&,428-sch,yl-sch) 
CALL Text&(2p&,SADD(s$) ‚LEN(n$)) :CALL SotAPen&(rpk,0) 
CALL Movek(rp&,428, y1) 
CALL Textä(ıp&,SADD(s$) ‚LEN(»$)) 


331 
332 1y 
333 0 
EN 
335 97 
336 00 
337 oa 
338 15 
339 2R0 
340 yg 
Pa Un 
342 0X 
33 PR 
344 88 
345 nz 
346 MN 
347 ob 
38 yao 
349 Jo 
350 MML 
351 Ir 
352 192 
353 52 
354 8 
355 ew 
356 Bz1 
357 730 
358 KR 


IF liresi THEN 11res321:x1=323:42=628 ELSE x4=11:x2=316 
CALL SetAPenk(npL,0):CALL ReotFLl1k(rpß,xL,225,x2,280) 
xtLength&(rp&,SADD(gtex$) ‚LEN(gtex$)) 
gpost=INn((320-gteß)/2)+Lire 
CALL SetAPen&(rp&,1):CALL Move&(xpk, gposi-son,244-sch) 
CALL Text&(rpk,SADD(gtex$) ‚LEN(gtex$)) 
CALL SetAPen&(rp&,0):CALL Move&(rp,gpos1,244) 
CALL Textä(rpk,SADD(gtex$) ‚LEN(gtex8)) 
RETURN 
Gadgettext: 
CALL SetAPenk(rp&,0):CALL ReotFillk(rp&,8,yi-16,632, y1+3) 
gteb-TextLengthk(rp&,SADD(gtex$) ‚LEN(gtex$)) 
‚gposi=INT((640-gtek)/2) 
CALL SetAPen&(1p&,1):CALL Moveß(rpk, gposi-sch,yi-sch) 
CALL Texth(rpk,SADD(gtexß) ‚LEN(gtex$)) 
CALL SetAPen&(rp&,0):CALL Novek(rp&, gposi,y1) 
CALL Text&(rpk,SADD(gtex$) ‚LEN(gtex$)) 
RETURN 
IDoNPfrei: 
a1 
WIILE a 
me&=PERKL(win&+86) 
messb=CetMsgk(me&):IF mess&=0 THEN a=0:0070 gut 
CALL ReplyMisgä(messs) 
gut: 
WEND 
RETURN 
Gadgetabfrage: 


363 102 
364 KO, 
365 12 
366 vZ. 


Listing 1. (Fortsetzung) 


nesst-Get\sgk(me&):IF mess&=D THEN gabfra 
elaas&-PEEKL(mess&+20) :codeg=FEEKW (mess&+24) 
X=PEEKW(mess4+32) :CALL ReplyMsg&(mess#) 

IF codef=27 THEN Ende 


AMEDRETOMESO MELTERWORDIEOR 


j 
\ 
\ 
$ 
\ 
| 
| 


' 
i 
E 
j 


36W JH IF codef=52 THEN a=0:links=-1 

368 AT IF oodeß-54 THEN a=0:1inks=O 

369 nl IF olass&=64 THEN 

30 ME  as0:IF #>321 THEN links=D EISE Links--1 

371 vo2 END IF 

372 RFO VEND 

373 WZ, CALL SetAPen&(rp8,0):CALL RectFills(rp&,8,163,632,221) 

374 00 RETURN 

375 KU Andererspieler: 

376 631 IF Leld(O)+Feld(1)+Feld(2)+fe1d(3)+Feld(4)+Te1ä(5)=0 TEEN 

d=7:spas13:G0SUB Spielende 

37792 IF eld(M)+teld(8)+Le1d(9)+Felä(10)+Felä(11)+Feldl12)=0 
THEN d=0:spa=6:C0SUB Spielende 

378 ya IP dran THEN spielers-spieler 

379 89 IF spieler=1 THEN h=2 ELSE h=3 

‚380 %2 CALL SetAPenk(rp&,h):CALL RectFillk(rp&,407,166,626,218) 

del 28 IF neiti=0 OR conputersspieler IHEN 

382 13 _ texße"genug":xtes487 

383 uVa ELSE 

384 IN}  texd= "Hin. :"+SPACES(6)+"Sek.:” 

385 U | xtes420:geltsneitttliminnerke-i 

386 A31 END IF 

387 Ne CALL SetAPen&(rp&,0):CALL Novek(rpk,xte-sch,210-Sch) 

388, Dk ' CALL Textä(zp&,SADD(tex$)‚LEN(tex$)) 

389 A2 | CALL SetAPen&(rpk,1):CALL Movek(rp&,xte,210) 

390 Fn  CALL Text&(rp&,SADD(tex8) ‚LEN(tex$)) 

391 OL Arane-ı 

392 pV IF spielerscomputer THEN 

393 063 GOSUB Computerspieler 

394 xg2 ELSE 

399 063 _0OSUB Menschapieler ” 

396 KL END IF 

397 NO, RETURN 

‚398 JL Computerspiele: 

399 8Ki CALL SetROB4k(vpR,17,12,12,12) 

400 BR CALL SetPointerk(wink,mik,15,16,-1,0)'WarteMauspfeil 

"401 MB | na=O:maxgewinno=-100;anfo«l 

402 9E  Nivenuerhoeunge: 

403 00 | nosne+L:ac«O 

404 PP Durchpruefene: 

409 0X 20(0)=ne 

406 25 FOR osspao-1 TO ac+sı 

407 013 nolno)=ie 

“OB 23 IF anfo=1 THEN 

409 225 FOR Jar0 TO 13:feldo(Jo)sfeld(Jo):NEXT Je 

MO YRZ, END IR 

Alla FOR ffonanfo TO 20(0) 


6 STEP -1 


aa 185 felo=zo(ffo):inhe=felde(Felc):feldo(felc)=0 
413 ou IF InhesO THEN foweiter 

414 Mi FOR forl TO Anho 

Als var felo=felc+ 

416 UA IF felosspan THEN felo=felo+1 

47 at IF felo»14 THEN felc=O 

418 87 feldo(felc)efeldo(?elc)+1 


A983 NEXT fo,ffe 
HROya anfosi 
HeLRa IF felc-spao AND feldo(spac-6)+feldo(spac-5) 
+felde(spao-4)+feldo(spac-3)+Felde (spao-2) 
+felde(spac-1)>0 THEN anfesno+1:6070 Niveauerhoeunge 
raubgewo=0 
IF feldo(fele)s1 AND felo<pac AND fele>»spac-& THEN 
geg-12-felc:inh=felde(geg) :felde(geg)=D:raubgewc=inh 
END IF 
gewinno=felde(spac)-feld(spac)+raubgewe 
IF gewinno- <mexgewinne THEN ioweiter 
GOSUB Mensch 
gesgewinn=gewinne-naxgewinnn 
IF gesgewinn>=maxgewinne THEN 
IF gesgewinnsmaxgewinne THEN 
zufalleRND: IF zufall<.5 IHEN gewinnweiter 
END IF 
maxgewinnesgesgevinn 
FOR 1=0 TO 2e(0):zb(4)=ze(1):NEXT 1 
geninnweiter: 
END Ir 
ieweiter: 
NEXT ic 
Niveauernieärigunge: 
IF ne=1 THEN GOSUB Ziehen 


445 290 BETURN 

A46 BT Mensch: 

447 Mi nm-O:mexgewinnn. 
448 rl Ntveauerhosunge: 
IM  nmenn+l:en=0 
450 dx Durchpruefenn: 
45165  zu(0)=nn 

452 2K FOR in«span-i TO an+span-6 STEP -1 

45303 zalm)-in 

454 DR IF anfnel THEN 

455 KE5 FOR jm=0 TO 13:feldm(jm)=felde(jn):NEXT jm 
4613 EmDIr 

457 38 FOR ffu-anfn TO 2u(0) 


anfn-L 


458 pv5 Selnszu(ffn) ;inhmefeldn(?eln) :Peldn(feln)=0 
ER IF inha=O THEN imvelter 

460 us FOR fn=1 TO intm 

461 207 feln=feln+1 

462 cc IP feln«spac THEN felnsfeln+l 

43 yB 1F felne14 THEN feln) 

464 an felän(feln)=feldn(feln)+1 


465 FR) NEXT fu,ffm 

HET  anfesi 

467 fa IF felmsspan AND feldn(span-6)+feldn(span-5) 
+feldn(span-4)+feldn(span-3)+feldn(span-2) 
+feldn{span-1)>0 THEN anfnsnn+1:0010 Niveauerhoeungn 

3) raubgen=) 

VL IF feldn(fein)e1 AND felm<span AND feln>«span-6 THEN 

085 gegel2-feln: Inhefelän(geg) :feldn(geg)-O:raubgenneinh 

23 zwir 

472 58 gewinnnefeldn(spam)-felde (span)+raubgeun 

473 38 IF gewinnn>snaxgewinnn THEN naxgewinnn 

Mrd  imeiter: 

479 pKi NEXT im 

476 D6  Nivenüernieärigungn: 

Art &0 IF nmel THEN RETURN 

478 dy nmena-L:amezn(nn)+L 

479 6r 1? spanel3 THEN anzan-7 

480 ha GOTO Durchpruefenn 


Ann 


483 852 CALL SetAGB4ä(vp&, 17, 
484 nl CALL Setfointerk(wind,) 


2) 
1%,16,16,-1,0) !Pfeil 


& 
a 
E 
& 
3 


felszb(zugt) 
IF fel<7 THEN 
yab=86:x1r480-(felk80): 
ELSE 
yab=126:x1.640-((14-fel)*80) :pneich3 
END IF 
CALL SetäPenk(rp&,h):CALL 
RestPillä(mp&,407,166,626,190) 
GOSUB Neuesfeld 
IF feld(O)+2eld(1)+Feld(2)+fe1d(3)+feld(4)+feld(5)=0 
THEN de7:spa=13:G0SUB Spielende 
IF feld(7)+Feld(8)+fe1d(9)+teld(10)+Feld(11)+fe1d(12)=0 
THEN deD:spa=6:G0SUB Spielende 
NEXT zug? 


8 8 28 RESSEAE 
Re RE BEBBRER 


501 aut mausabfrage: 

502 PE GOSUB IDOMPfrei 

503 Ef as-1:IF zeitl THEN TIMER ON:ON TINER(1) GOSUB Zeitanzeige 

SO IK WIE « 

503 in} mei=PEEKL(wind+86) 

506 682 abfr: 

507 983 messi-GetNisgk(meb):IF messk-O THEN abfr 

508 IE classk=PEEKL(messE+20) :codeg=PEEKW nesst+24) 

509 0: x=PEEKW(messk+32):y=PEEKW(mess&+34) :CALL 
Beplyisgk(nessk) 

51050 IF oodeß=27 OR codef=54 THEN TINER OFF:GOTO Ende 

Si #9 IF oodeg=52 THEN TIMER OFF:COSUB Grundeinstellung 

512 00 IF oodeß=112 THEN TIMER OFF:COSUB Pause 

SI3M0 IF elassi«8 THEN 

3iA 05 IF codef=104 THEN TIMER OFF: 

Sur Em ır 

6A IF elassäsd, THEN 

Sir TIMER Fr 

S2a ı0 IF x>321 THEN 010 Ende ELSE GOSUB Grundeinstellung 

a MO IE 


Listines 


S2L Je IF x>79 AND x<560 THEN 
522 753 IF spieler=1 AND y>60 AND y<100 THEN 


523.105, x1=480: fel=0:yab=-86: he2 
524 10 FOR 1=480 70 80 STEP -80 
5 IF x<i THEN x1ex1-80:felsfel+l 
NEXT ı 
IF fela(fe1)>O THEN GOSUB Neuesfeld:GosuB 
Andererspieler 
528 084 _ EISEIF spieler=-1 AND y>100 AND y<140 THEN 
529 ac5 x1=80:fel=7:yab«126:pn=I:he3 
330 1a FOR 4=160 TO 560 STEP 80 
53177 IF x>1 THEN xlexi+80:felsfeltt 
532 #5 NEXT 4 
533.19 IF feld(fe1)>0 THEN GOSUB Neuesfeld:GOSUB 
N Andererspieler 
534 YR3) END IF 
535 281 END IF 
536.29 GOTO mausabfrage 
537 140 RETURN 


538 5x Neuesfeld; 
539 NIL inh=feld(fel):feld(fel)=O:zielfsfel+inh 
540 em IF spieler=1 THEN 
541 Yo3|  spar=13:spareis6: 
SON | IF zielfsspar THEN zielf-D 
Hua NDR ELSE 
544 Va spar=6:spareisl3;hinfe3 

IR pielfsspar THEN zielf«7 
END IF 
WHILE alelf>13 

zlelfenielt-13 
\ vEnD 
IF afelf=sparei THEN t$="KALAHAZUO*:COSUB Zugart:dran«O 
IF inh<14 AND feld(zielf)=0 AND ((spielerei AND 
alelf<6 AND zielf>=0) OR (epieler« 
AND zielf>6 AND aielf<13)) THEN 
da "RAUBZUG":GOSUB Zugantiran-i 
END IF 
tB=SIRB (Anh) sEtheSADD(tS) :f=l:pmei 
taksTextLengthä(rpk,2t&,LEN(t$)) :posi=INT((75-tek)/2)+x1 
FOR del TO 20 

FOR J=1 10 4OD:NEXT J 

pnie-pn: fef+pn:CALL SetAPenk(rpk,2) 

CALL Movas(rp&,posi,yab):CALL Textk(rp&,zt&,LEN(+$)) 
NEXT 4 
+BSSIRF(feld(fel)) :2tksSaDD(tS) 
GOSUB Feldeinschreiben 
FOR del. TO Inh 

FOR Je1 TO 2000:NEXT J 

telsfelt 

IF folsspar THEN felsfel+lixiexi+(pnk80) 

IF fels14 THEN fel=O 

feld(fel)=telä(fel)+1 

IF felsO THEN yabaß6:pnz-1: 


IF fel«7 THEN yab=126:pn=l: 
xlex1+(prı#80) :t9-STRF(Feld(Fel)):ztk=SADD(tS) 
(GOSUB Feldeinschreiben 


87a nal NET A 
57580 IF ra THEN 
576 av jege12-fel:inhefeld(geg) :feld(geg)=0 


57702 IF inh=O THEN RETURN 
578 00 | IR spieler=1 THEN 


Mike, spark«6sxaba0:yab=126:h=3 
bB0 xg4 ELSE 
Hai 605 spark=13:xab=560: yab=86:h=2 


Se Ka END IF 
583 0m ° feld(spark)=feld(spark)+inh 
sh at FOR 1e1 102 


583 PC tS=STRF(Leld(geg)) :Et&sSADD(+$) 
586 pi (GOSUB Feldeinschreiben. 

587 AM yab=106:geg-spark:xi=xab:hshinf 
Ba yB3 NEXT 1 

SBOURKL. END IF 

‚520, SUD RETURN 

SL FU Zugart: 


ztR=SADD(+$) 

te&-TextLengthä(rpk, 51%, LEN(t$)):posi=INT( (221-te&)/2)+405 
CALL SetAPen&(rp&,0):CALL Movek(rp&,posi-sch,187-sch) 

CALL Text&(rp&,ztk,LEN(t$)):CALL SetAPens(rp&,1) 

CALL Movek(1pk,pos1,187):CALL Text&(rp&,zt&,LEN(t$)) 


598 0X Zeitanzeige: 


ANCHSPBEIEDMECOMPUTERWORLB, COM. 


eek-zeitimineO 
WEILE sek>59 
minsnin+l:sckssek-60 
| WEND 
geis$-STR$ (sek) :zetsk=SADD(zeis$) 
zein$-STR$ (min) :zetn&=SADD(zein$) 
| IP min< >ninnerk THEN 
ALL SetäPenk(rp&,h) :CALL RectFill&(rp8,471,190, 522,210) 
(ALL SetAPen&(rp&,0) :CALL Moveß(1p%,475-Sch,210-Sch) 
ALL Text&(rp&,zetm&, LEN(2ein$)) 
CALL SetäPenk(1p&,1):CALL Movek(1p&,475,210) 
CALL Text&(rp&,zetm&,LEN(zeind)) 
END IF 
ALL SetAPen&(rpk,h) :CALL ReotFi11%(rp8,575,190,626,210) 
CALL SetAPenk(rpk,0):CALL Movek(1pk, 579-Sch, 210-Sch) 
CALL Textu(rp&,zetsk,LEN(zeis$)):CALL SetAPen&(rp&,1) 
CALL Movek(rp&,579,210) :CALL Text&(1p&, 2ets&,LEN(zeis$)) 
IF geit«O THEN zeitab-1:00SUB Spielende 
"86 ninnerknin 
619 1x0 RETURN 
G2OnK Spielstand: 
621 kEL x1:560 
FOR 1:0 70 13 
IP 1«0 THEN yab«86:pn=-I:he2 
IF 1=6. OR 4*13 THEN yab»106 
IP 1=7 THEN yabs126:pn=1:he3 


DL geitsneit-1:IF zeit<5 THEN BEEP 
dB 
m 


Bassengen 


= 
B 


BEREREREBSSETEREREST 
sea 


> 


xlexi+(pnk80) :tB=STR8(e1d(4)) :ath«SADD(tB) 
GOSUB Feldeinschreiben 

62B &pı NEXT i 

629 170. RETURN 


630 7p Feldeinschreiben: 

631 291 teksTextLengthä(lrp&,at&,LEN(t$)) :posi=INT((75-te&)/2)Hx1 
632 11 CALL SetäPenä(rp&,h) 

633 54 CALL ReotFill&(rp&,x1+7,yab-16,x1470, yab+3) 

634 Wi | CALL SetäPen(1p&,0):CALL Hovek(rpk,posi-uoh,yab-ach) 
635 52 CALL Textäk(npä,st&,LEN(t#)):CALL SetAPen&(1p&,1) 

636 U CALL Novek(rpk,posi,yab):CALL Texth(rp&,2tk,LEN(tB)) 
637 ARD RETURN 

&3B &} Spielende: 

639 In} IF zeitab THEN 

40 WI zeitab=D 

@ALHP IF spielersl THEN 

BR st feld(6)=O:feld(13)=1 


643 yn& ELSE 

Ah RZ fe1d(6)=1:fe1d(13)=0 
este END IF 

6 ik ELSE 


Anh=O 

FOR i=d TO d+5 

Anheinh+fe1d(1) ;feld(1)=0 

EXT 1 

felä(spa)=feld(spa)+inh 

GOSUB Spielstand 
END IF 
CALL SetAPen&(rp&,0):CALL ReotFillk(rpk,8,163,632,221) 
IP fe1ä(6) >fe1d(13) THEN gtex$="Grün hat gewonnen” 
IF fe1d(6)<fe1d(13) THEN gtex$="Blau hat gewonnen” 
657 38 IF Leld(6)=feld(13) THEN gtexf="Unendschieden” 
(658 86 Y1s200:00SUB Gadgettext 
659 y5 | COSUB Gadgetabfrage 
660 b& | IF links THEN GOSUB Grundeinstellung ELSE GOTO Ende 


663 EA FOR 1=1 10 53 

(664 003 g=INT(1/5):CALL MoveScreenk(sor&,0,g) 'Soreenrutersor. 
@63 AOL) NEXT & 

666 Bi paus-1 

667 40 WEILE pau 

"668 093 mek=PEEKL(win&+86) 

869 052 abfrpau: 

(670 913  messkeGetusgk(mek):IF messk-0 THEN abfrpau 

BTL OO sodef-PEEKW(messh+24):CALL Replylsg&(messk) 

2 IF oodefe112 THEN pau=O 
61 WEND 

AR vor 


253 70 1 STEP -1 

-INT(4/5) :CALL HoveSereen&(scr&,0,-8) 'Screenraufser. - 
Ebt, NEXT i 

€77 94 IF zeiti THEN TIMER ON 


>= Listing 1. (Schluß) 
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von Hans Waldhäusel 


s ist 3 Uhr 20 nachts. Ei- 
ne gequälte Kreatur 
richtet sich stöhnend 
auf. Schmerzende Fingerkup- 
pen, rechteckige Augen (Diago- 
'nale 14 Zoll), im Blut mehr Kof- 
fein als rote Blutkörperchen. 
Acht Seiten Listing abgetippt - 
hoffentlich fehlerlos. Jetzt noch 
schnell das tolle Programm an- 
werfen, sich freuen und ab ins 
Bett. Laden ... starten ... »UN- 
DEFINED SUBPROGRAM« - 
da werden Aggressionen wach! 
‚Also doch ein Fehler! Aber wo? 
Und ist es der einzige? Nagen- 
de Ungewißheit, grenzenloser 
Frust! - Tja, der Gute hatte kei- 
nen Checksummer. 
Ähnlichkeiten mit lebenden 
Personen sind natürlich rein zu- 
fällig, aber damit es Ihnen nicht 
so ergeht wie unserem fiktiven 
Helden, haben wir für Sie eine 
Eingabehilfe entwickelt. Den 
Checksummer »CHECKIE42 _ 
V1.1«. »Checkie42« kann Ihnen 
zwar nicht die Knochenarbeit 
des Eintippens abnehmen - so 
weit sind wir noch nicht (kann ja 
noch kommen); aber »Checkie- 
42« kann Sie auf Fehleingaben 
aufmerksam machen. Na, 
wenn das nicht beruhigend ist. 
Damit Sie den Checksum- 
mer identifizieren können, ha- 
ben wir eine Hardcopy der Ver- 
sion 1.1 in Bild 1 abgebildet. 


Abtipp-Assistent 


V1.1 ist der Letztstand unse- 
rer Eingabehilfe. Um Mißver- 
ständnissen vorzubeugen, ha- 
ben wir für Sie auch eine Abbil- 
dung der Version 1.0 abge- 
druckt (Bild 2). Nach Möglich- 
keit sollten Sie die neueste Ver- 
sion verwenden; der Komfort ist 
ungleich größer. 

Wie funktioniert dieser Check- 
summer ? Und wie kann er Sie 
vor Nervenschäden und Wut- 
ausbrüchen bewahren? Darauf 
gibt es mehrere Antworten. Zu- 
erst einmal brauchen Sie das 
Programm »Checkie42__V1.1« 
in Ihrem Amiga. Entweder Sie 
kopieren es von einem Freund 
oder Sie kaufen sich doch ein- 
mal eine Leserservice-Diskette 
(da ist er immer mit drauf!). 
‚Oder Sie tippen Listing 1 ganz 
vorsichtig und gewissenhaft ab, 
eventuell unter Verwendung 
der Version 1.0 unseres Check- 
summers. Wie Sie unschwer er- 
kennen, ist»Checkie42« ein Ba- 
sic-Programm, doch ist seine 


Hilfe beim Abtippen: 


Big Brother is 


‚Anwendung nicht auf Basic- 
Programme beschränkt. Sie 
können jedes (!) in Zeitschriften 
von Markt&Technik veröffent- 
lichte Amiga-Programm mit die- 
sem Checksummer eingeben, 
wenn das Programm mit Prüf- 
summen versehen ist. Also 
auch Programme in »C«, »Mo- 
dula«, »Assembler«, usw. 

Woran erkennen Sie, ob eine 
Checksumme angegeben ist? 
Eine Checksummer-Programm- 
zeile hat folgenden typischen 
Aufbau: 


379 MJ2 IF Checkfile THEN 
Zeilennummer Checksumme 
rogrammzeile 
Zeilennummer und Check- 
summe sind meist grau unter- 
legt, damit Sie sie leichter von 
der eigentlichen Programmzei- 
le unterscheiden können. Die 
Checksumme kann auch nur 
zwei Stellen haben; die Zeilen- 
nummer ist auf maximal vier 
Stellen begrenzt. Sie sehen al- 
so: die kryptischen Zeichen 
zwischen Zeilennummer und 
Programmzeile, über die Sie 
sich vielleicht schon gewundert 
haben, sind das Kennzeichen 
dafür, daß ein Programm mit 
dem Checksummer eingege- 
ben und/oder überprüft werden 
kann. Wundern Sie sich bitte 
nicht über das »und/oder«. Es 
gibt nämlich mehrere Möglich- 
keiten, »Checkie42« anzuwen- 
den. Da wäre zunächst einmal 
die Möglichkeit, sozusagen 
»unter Aufsicht« ein Programm 
einzutippen. Dazu laden und 
starten Sie Amiga-Basic und 
danach den Checksummer. 
Das erfolgt entweder durch An- 
klicken des Checksummer- 
Icons, wenn Sie ein Workbench- 
Fan sind, oder aus dem CLI. 
Klicken Sie das Icon an, so prüft 
das Betriebssystem zunächst, 
ob Amiga-Basic erreichbar ist. 
Dazu wird die Pfad- und Datei- 
angabe aus dem »Default-Tool«- 
Eintrag des »info«-Files von 
»Checkie42« herangezogen. 
Von all diesen Dingen merken 
‚Sie - außer den Diskettenzugrif- 
fen - nichts. Für den Fall, daß 
Sie das CL! der Workbench vor- 
ziehen, gehen Sie folgender- 
maßen vor: Sie wechseln zuerst 
einmal in das Verzeichnis, in 
dem Sie Amiga-Basic abgelegt 
haben. Dann starten Sie Ami- 
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ga-Basic und, wenn Sie wollen, 
den Checksummer gleich hin- 
terher. Dazu geben Sie nach 
dem CLI-Prompt folgende Zei- 
len ein: 


der Voraussetzung, daß Sie 
‚Amiga-Basic unter dem Namen 
»AMIGA-BASIC« auf Ihrer Dis- 
kette namens »BASIC-DISK« im 
aktuellen Laufwerk abgelegt 
und den Checksummer in die 


RAM-Disk ins Verzeichnis 
»CHECKER« kopiert haben. 
Das wär's dann auch schon 
gewesen; »Checkie42_V1.1« 
steht zu Ihrer Verfügung. 


Aufruf 


Nachdem Sie das Programm 
gestartet haben, werden Sie 
nach dem Namen der zu bear- 
beitenden Datei gefragt, wobei 
übrigens auch Device- und 
Pfadangaben-nach den Kon- 
ventionen von Amiga-Basic zu- 
lässig sind. Ihre Beantwortung 
dieser Frage stellt die Weichen 
für den weiteren Programmab- 
lauf. Geben Sie nämlich einen 
Dateinamen ein, der schon 
existiert, dann nimmt der Check- 
summeran, daß Sie diese Datei 
editieren wollen. Andernfalls 
wird ein File mit dem ge- 
wünschten Namen neu ange- 
legt. Als nächstes gibt Ihnen 
»Checkie42« eine Zeilennum- 
mer vor, logischerweise zu Pro- 
grammbeginn die Nummer 
»Eins«, und erwartet von Ihnen 
die Eingabe einer Checksumme. 

Sind Sie mit der vorgeschla- 
genen Zeilennummer nicht ein- 
verstanden oder verlangt das 
abzutippende Listing eine an- 
dere, so nehmen Sie bitte jetzt 
durch einen Druck auf <F7> 


Nobody is perfect, 
macht Fehler. Das Ab- 
Listings kann schon 


und Eingabe der gewünschten 
Zeilennummer eine Korrektur 
vor. Überlegen Sie sich das 
aber genau, denn die Zeilen- 
nummer ist selbstverständlich 
Bestandteil der Prüfsumme. 
Ganz gleich, ob Sie jetzt die 
Zeilennummer verändert ha- 
ben oder nicht, als nächstes ist 
die Checksumme dran. Die ge- 
ben Sie bitte exakt so ein, wie 
sie im Listing steht, Großbuch- 
staben müssen Großbuchsta- 
ben bleiben, Kleinbuchstaben 
Kleinbuchstaben! Sollte Ihnen 
bei der Eingabe der Prüfsum- 
me ein Tippfehler unterlaufen 
und Sie bemerken ihn erst, 
nachdem Sie die Checksum- 
men-Eingabe mit <RETURN> 
verlassen haben, brauchen Sie 
bloß auf <Fi> zu drücken - 
damit wird die alte Prüfsumme 
gelöscht und der Cursor in das 
Prüfsummen-Eingabefeld ge- 
setzt. Nach Eingabe der Prüf- 
summe springt der Cursor im- 
mer in jenes Eingabefeld, in 
dem Sie die eigentliche Pro- 
grammzeile eintragen - aber 
ohne Zeilennummer und 
Prüfsumme! Verlassen Sie die- 
ses Eingabefeld durch einen 
Druck auf die <RETURN>- 
Taste, so überprüft der Check- 
summer, ob die angegebene 
Checksumme sich mit der Kon- 
trollrechnung deckt, wobei die- 
se Rechnungen sowohl die Zei- 
lennummer als auch die Pro- 
grammzeile erfassen. Ist alles 
okay, übernimmt »Checkie42« 
die Zeile in die geöffnete Datei, 
erhöht die vorgeschlagene Zei- 
lennummer um Eins und wartet 
erneut auf Ihre Eingabe von 
Checksumme oder Zeilennum- 


Der Aufbau einer Prüfsumme 


Eine Prüfsumme (auch Checksumme genannt) besteht aus zwei 
oder drei alphanumerischen Zeichen. Zugelassen und verwendet 
werden die Großbuchstaben »A« bis »Z«, die Kleinbuchstaben »a« bis 


»z« und die Ziffern »0« bis »9«. Sonderzeichen wie »Äs«, »B« usw. sind 


nicht vorgesehen. 


Die ersten beiden Zeichen der Prüfsumme enthalten den Prüfcode 
für Zeilennummer und Programmzeile. Das dritte Zeichen enthält den 
Codefür die Spaltenposition der ersten »Nicht-Leer-Stelle« der aktuel- 


len und der folgenden Zeilen. 
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der Checksummer 


EINGABEHILFE 


checking You 


und wer arbeitet, 
tippen seitenlanger 
in Arbeit ausarten. 


mer. Wird hingegen eine Abwei- 
chung entdeckt, so heißt das, 
daß entweder eingegebene 
Checksumme oder Zeilennum- 
mer oder Programmzeile nicht 
mit den Vorgaben übereinstim- 
men. In diesem Fall springt der 
Cursor an den Av ıg der Pro- 
grammzeile und zeigt Ihnen da- 
durch an, daß »irgendetwas« 


stimmt; denkbar wäre eine 
Kommentarzeile, die Sie bereits 
bei der Dateneingabe etwas 
aussagekräftiger oder vielleicht 
auch kürzer machten. Auch da- 
für ist unser Checksummer ge- 
rüstet. 

Mit einem Druck auf <F6> 
wird die Zeile in jedem Fall ge- 
speichert, ganz gleich, ob Prüf- 
summe und Kontrollrechnung 
zusammenpassen oder nicht. 
Da solche Manipulationen aber 
nicht unbeträchtliche Risiken in 
sich bergen, werden Sie nach 
Beendigung der Daten-Eingabe 


Bild 1. Wenn Sie dieses Bild auf Ihrem Monitor sehen, dann 
haben Sie Checkie42 in der Version 1.1 gestartet 


nicht stimmt. 
Checksummer 


st der 
nicht 


geben. 


gen eines fehlenden Zeichens 
die ganze Zeile nochm 
geben zu müssen (-Chı 
unterscheidet sich hier ange- 
nehm vom CLI), hat der Check- 
summer-Programmierer noch 


eine weitere nützliche Fähigkeit 
in das Programm gepackt: 
Durch einen Druck auf <F2> 
aktivieren Sie den Einfügemo- 
Allerdings verlangsamt 
Pro- 


dus, 
dieser Insert-Mode den 
gramm-Ablauf 
weshalb Sie durch eins: 
ten Druck auf <F2> möglichst 
bald wieder in den normalen 
Eingabe-Modus zi en 
sollten. War aber dit 
le Schrott, löschen Sie 
besten komplett mit < 

Natürlich kann durch 
mal der Fall eintreten, 
ganz bewußt eine Programm- 
zeile übernehmen möcht: 
nicht mit dem Original ü 


vor der Tastatur sitzen, müssen 
wir uns mit dem zu Beginn die- 
ses Artikels kurz angesproche- 
nen Fall»Editieren eines bereits 
vorhandenen Files« befassen. 
Auch diese Funktion unseres 
Checksummers ist auf den Be- 
nutzer zugeschnitten, um ihm 
möglichst viel an Arbeitser- 
leichterung zu bieten 

Gehen Sie bitte folgender- 
maßen vor: Laden und starten 
von Amiga-Basic und »Checkie 
42_V1.1« wie zu Beginn be- 
schrieben. Auf die erste Frage 
„Dateiname ?« antworten Sie 
mit der Eingabe des Namens 
jenes Files, das Sie bearbeiten 
wollen. Nach einer Kontrolle, ob 
das angeforderte File auch tat- 
sächlich vorhanden ist, folgt die 
nächste Frage nach »Nur 
Checksummen ausgeben (j/n) 
?«. Antworten Sie auf diese Fra- 
ge bitte mit der Eingabe von 


. <n> „Auch die nächste Frage, 


nämlich »Eingabe aus Datei 
(/n) ?«, beantworten Sie mit 
<n>. Das Programm erkennt 
daran, daß Sie die Eingabe ei- 
nes bestehenden Programms 
fortsetzen wollen, ermittelt die 
Anzahl der im Programm be- 
reits vorhandenen Zeilen und 


Bild 2. Sollte Ihr Checksummer dieses Aussehen haben, 
dann arbeiten Sie mit einem überholten Programm 


mit dem Hinweis konfrontiert 
daß und wie viele Zeilen mit in 
korrekter Checksumme üb 
nommen wurden. 
Sind Sie mit dem 
fertig oder steht Ihnen 
nach einer Pause, so bee 
Sie bitte die Arbeit mit»Chi 
42« durch Drücken von <CT} 
e>. Das angelegte File w 


schlossen und der Check: 
mer beendet seinen Ablauf. 
Falls Sie die Abtipperei nur 
unterbrechen wollten und jetzt 
mit neuer Kraft voll Tateı 
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schlägt Ihnen als Zeilennum- 
mer für die weitere Eingabe die 
nächsthöhere vor. Sie geben 
dann das Programm weiter ein, 
als hätten Sie nie unterbrochen. 
Der vorletzte Satz ist wörtlich 
gemeint! Die Zeilen in der an- 
geforderten Datei werden ge- 
zählt und nicht numeriert! 
Wenn Sie ein Programm mit der 
Zeilennummer »5« begannen 
und insgesamt 100 Zeilen ein- 
gaben, so hat dieses Pro- 
gramm in der Checksummer- 
ing nur 95 Zeilen, was da- 
ihrt, daß Ihnen bei einem 


Neustart als nächste Zeilen- 
nummer »96« vorgeschlagen 
wird, obwohl Sie bei Zeile »101« 
weitermachen sollten - an die- 
ser Stelle sollten Sie höllisch 
aufpassen. 

Sie wollen jetzt sicher wis- 
sen, was passiert, wenn Sie die 
oben angesprochenen Fragen 
mit <j> statt mit <n> beant- 
worten. Nun, in diesem Fall be- 
nutzen Sie Eigenschaften des 
Checksummers, die eigentlich 
für jene Benutzer gedacht sind, 
denen »Checkie42« bei der 
Daten-Eingabe zu langsam 
oder zu unkomfortabel ist und 
die ihre Programm-Dateien lie- 
ber mit einem echten Text- 
Editor abfassen. Der Check- 
summer kann jede ASCII-Pro- 
gramm-Datei auch nachträg- 
lich bearbeiten. Erlauben Sie 
uns bitte, kurz zu erklären, was 
eine ASCII-Datei ist. Darunter 
versteht man eine »reine« Text- 
Datei, in der also keinerlei Steu- 
erzeichen oder Formatierungs- 
anweisungen enthalten sind. 


Überlistet 


Eine solche ASCII-Datei kann 
auch von Amiga-Basic ange- 
legt werden, wenn ein Pro- 
gramm mit der Endung »,a« ab- 
gespeichert wird (als Beispiel: 
SAVE ”Checksummer_VO”, 
a). Auch jedes bessere Textver- 
arbeitungsprogramm bietet die 
Möglichkeit, »Text-Dateien« ab- 
zuspeichern. Antworten Sie auf 
die Frage »Nur Checksummen 
ausgeben (j/n) ?« mit <j>, so 
wird die angegebene Datei 
durchgerechnet und die zu je- 
der Programmzeile sich erge- 
bende Prüfsumme mit Zeilen- 
nummer und Programmzeile 
ausgegeben. Damit Sie aber 
nicht an den Bildschirm ange- 
nagelt sind (die Rechnerei ko- 
stet doch ganz schön viel Zeit), 
fragt das Programm nach, ob 
das mit den Prüfsummen ver- 
sehene Programm nur auf dem 
Bildschirm ausgegeben wer- 
den soll, oder ob Sie einen Aus- 
druck vorziehen. Ihre Wahl ge- 
ben Sie durch die Beantwor- 
tung der Frage »Bildschirm 
oder Drucker ? (b/d)« dem Pro- 
gramm bekannt. Wählen Sie 
die Bildschirm-Ausgabe, so 
wird parallel zur Bildschirmaus- 
gabe im aktuellen Directory ein 
File mit dem Namen »Dateina- 
me.chk« angelegt. Dies ist dann 
recht praktisch, falls Sie noch 
keinen Drucker haben, denn 
dann können Sie sich das Pro- 
gramm inklusive Prüfsummen 
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jederzeit z.B. mit dem CLI-Be- 
fehl »type« ansehen, ohne auf 
die Berechnung der Prüfsum- 
men warten zu müssen. Ist die 
Rechnerei beendet, erwartet 
das Programm einen Tasten- 
druck. Ist dieser erfolgt, wird 
das Programm beendet. 

Eine weitere Eigenschaft, die 
Ihnen »Checkie42« zur Verfü- 
gungstellt, aktivieren Sie, wenn 
Sie die Frage »Nur Checksum- 
men ausgeben?« verneinen 
und auf die Frage »Eingabe aus 
Datei? (j/n)« mit der Eingabe 
von <j> antworten. Dann 
nämlich wird die angegebene 
Datei geöffnet, auf dem Bild- 
schirm die Eingabemaske auf- 
‚gebaut und auf die Eingabe ei- 
ner Checksumme zur ersten 
Programmzeile gewartet; Sie 
können natürlich wie gewohnt 
die Zeilennummer ändern. 
Nach Eingabe der Checksum- 
me wird die korrespondierende 
Programmzeile aus der Datei 
geholt, in den Maskenbereich 
»Programmzeile« geschrieben 
und auf Übereinstimmung zwi- 


Ko 


‚Checkie42 in Stichworten: 


miertes 


schen Zeileninhalt und einge- 
gebener Prüfsumme getestet. 
Istalles in Ordnung, wird auf die 
nächste Programmzeile weiter- 
geschaltet und die Eingabe der 
nächsten Checksumme erwar- 
tet. Wird eine Abweichung ge- 
funden, setzt das Programm 
den Cursor auf das erste Zei- 
chen der Programmzeile. Sie 
verfahren dann wie bei der 
Neueingabe eines Programms 


Evolution 


(siehe oben). Damit im Extrem- 
fall aber nicht Ihre Originale den 
Jordan hinunterschwimmen, 
legt der Checksummer zur Si- 
cherheit eine Kopie des Origi- 
nal-Files unter dem alten Datei- 
namen, aber mit der Endung 
».bak« im aktuellen Directory 
an; sollte Ihnen ein gröberer 
Schnitzer unterlaufen, können 
Sie so noch immer auf diese 
Backup-Datei zurückgreifen 
und ein eventueller Schaden 
hält sich in Grenzen. 
Konnten wir Sie von der Nütz- 
lichkeit unseres Checksum- 


r eilige Leser 


zur Verfügung. 


Te legung: 

Iepobe S Schecksumme ändern 

<F2> Einfüge-Modus ein/aus 

<F3> Zeile löschen 

<F6> Zeile speichern (Fehler ignorieren!) 
<F7> Zeilennummer ändern 

<CTRLe> Programm beenden 


Die Funktionen <F2>, <F3> und <F7> stehen erst ab Version 1.1 


Mit Checkie42 können Sie 


mers überzeugen? Dabei ist 
dessen Entwicklung sicher 
nicht abgeschlossen. Zwei Wei- 
terentwicklungen sind in Pla- 
nung, aber in dieser Version 
noch nicht eingebaut. Die erste 
bezieht sich auf die Reaktion 
des Checksummers bei Ent- 
deckung eines Fehlers. Mo- 
mentan wird der Cursor ledig- 
lich auf den Beginn der Pro- 
grammzeile gesetzt und eine 
Korrektur erwartet. Wenn Ihnen 
dies zu dezent ist, sollten Sie 
den Programmblock mit dem 
Label »Wiederholung:«, der am 
Anfang des Programms steht, 
folgendermaßen ändern: 
Wiederholung: 

GOSUB EingabeZeile 

IF FEnde=wahr THEN Ende 
GOSUB CalcSumme 

IF FZok = falsch THEN 
BEEP:GOTO Wiederholung 
GOSUB Uebernahme 

GOTO NeueZeile 

Wenn Sie diese Änderung 


schauen, um Fehler zu erken- 
nen - es wird ein akustisches 
Warnsignal ausgegeben. Die 
zweite Idee, die Arbeit mit 
»Checkie-42« etwas komforta- 
bler zu machen, sucht noch 
nach einem Programmierer. 
Wir geben zu, die Berechnun- 
gen der Prüfsumme erfolgen 
nicht gerade mit allzu großem 
Tempo. Sollte sich daher je- 
mand finden, der diese Re- 
chenroutinen, die unter dem 
Label »CalcSumme« zu finden 
sind, beschleunigen kann (es 
muß nicht immer Basic sein) - 
die AMIGA-Sonderheft-Redak- 
tion würde sich über eine Zu- 
schrift sehr freuen und bald- 
möglichst ein Update ab- 
drucken. 

Die AMIGA-Redaktion hofft, 
Ihnen mit dem Checksummer 
»Checkie42_V1.1« ein wir 
kungsvolles Instrument zur Ver- 
meidung von Tippfehlern beim 
‚Abtippen von Listings zur Verfü- 
gung gestellt zu haben. Möge 


einbauen, brauchen Sie nicht Ihnen der Spaß am Abtippen 
ständig auf den Bildschirm zu nie vergehen! so 
1680 nn vonunennan en: 
2 KF REM *#%* Checksumme: 'heckie 42 id 


3 ho REN wur 


GOSUB loeschen 
12 27 GOSUB EingabeSunme 

13 pt IF Fänderwahr THEN Ende 
14 WO Wiederholung: 


Version 1.1 


dat REN 
527 Start: 
BN42 GOSUB Init 


= Listings mit Checksumme korrekt und kontrolliert abtippen 

= Listings »häppchenweise« eingeben 

= Listings, die Sie mit einem Texteditor eingegeben haben, nachträg- 
lich mit Checksummen versehen und so durch Vergleich mit dem 
abgedruckten Listing kontrollieren 

- Listings mitChecksumme auf dem Bildschirm, dem Drucker und auf 
Diskette ausgeben lassen 

- Listings unabhängig von der jeweiligen Programmiersprache kon- 
trolliert eingeben 

- Listings, in die sich Fehler eingeschlichen haben, einfach korrigie- 
ren 

= sicher sein, in Ihrem Programm keinen Tippfehler eingebaut zu ha- 
ben 


Was Sie bei der Arbeit mit »Checkie42« beachten sollten: 

Geben Sie die Programmzeilen, die Prüfsumme und die Zeilen- 
nummer genau wie abgedruckt ein. Dies erhöht die Sicherheit. Auch 
Groß- und Kleinschreibung, sowie Position des Befehls sind Bestand- 
teil der Prüfsumme! 

Verarbeiten Sie mit dem Checksummer nur ASCII-Files. 

Steuerzeichen im Text können zu überraschenden Ergebnissen 
führen. Auch mit binär (Save-Option »,b«) oder codiert (SAVE-Option 
»,P«) gespeicherten Basic-Files weiß »Checkie42« nichts anzufangen. 

Eine dreistellige Prüfsumme weist darauf hin, daß »ab jetzt« der Be- 
ginn der Programmzeile in einer anderen als der bisherigen Spalte er- 
folgt (wichtig bei Einrückungen !). Wenn Sie an solchen Einrückungen 
nicht interessiert sind und auf deren Überprüfung verzichten wollen, 
‚genügt die Eingabe der ersten beiden Zeichen der Prüfsumme. 

‚Arbeiten Sie bitte immer mit deaktiviertem Schreibschutz, damit 
»Checkie42« bei Bedarf die ».bak«- und ».chk«-Dateien anlegen kann. 


Ein Programmabbruch wäre sonst unvermeidlich. 


SRUREBSEN 
SKERHIHRER 


19 802 GOSUB EingabeZeile 
A& e4 IF FEndesvahr THEN Ende 
17,90 OOSUB Calcsunne 
8 fa IF FZok = falsch THEN GOTO Wiederholung 
1900 GOSUB Uebernahme 
20 46 | GOTO NeueZeile 
21 340 znde: 
22 762 00SUB fertig 
a2 m 
24 W60 Inte: 
25 2 wahrs-ı 
264 Talsch«O 
1Zeiles240 : REM Anzahl Zeichen/Zeile 


1BZeile=60 : REK Anzahl Zeichen/Bildschirnzeile 
AnzBZeileneLZeile/LöZeile 

8x.6 : zysl4 : REM Position Zeile 

8x=20 : ay«5 : REM Position Checksunne 
Anzcsze3 : REN Anzahl Ziffern/Checksunne 
DIM z(1Zeile) 

DIM os(Anzcsze2) 

os(Ana0sZ)=0 


36 ev de0 : 

37 a1 2 320 

38 XL FZok = wı 

39 Mn Checkfile=0 : 

40 Bb READ Faktor(1) 

Hz Faktor(1)<>0 
42 ga4 1 

43 cm Fektor(1) ;topenreihe 
4492 wen 

456m | Anafak-i 

MB DATA 2,3,4,5,6,0 
45  Rerum 
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EinGABEHILFE 


es Dpurg[2 
57 Ku 
58 Ku7 
59 Ya 
60 716 
61 vo4 
62 AR 
63 36 
7 
65 to 
66 AL 
67 598 
68 Kn6 
69 0E 
70 vp 
m Rh WHITE a{f)=32 = jeiei : WEND 
72 kw IF Fozjet Tas 
73 298 es(6)e-16  : RE Learstelle 
74 nV6 ELSE 
75 xa8 oa(6)el < Füzdei 
76 136 END 1 
m 26 PRINT USDG "ee "jleile; : Pr 
78 We PRINTES,ISING "em "ileile, “ 
79 mc FOR 1s4 TO 6 
80 748 IF os{1)>3% TEEN os(1)=ca(t)«6 
Bıns IF os(1)>9 TEEN os(1)ncs(1)+7 
82 y PRINT cEmB(en(1)+48); 
83 BL PRINT@L,CHEP[<a[4)+48) ; 
B4 n36 NEXT 4 
85.19 PRINT * 
861 PRINT#d, 
87 Qn Leileszei 
BB nt WEND 
89 IP CLOSE 1 : CIOSE & 
90% Ange"” 
9 By PRINT:PRINT "Taste drücken” 
‚92 dr e8=INPUTSL 


93. m RETURN 
94 8t2 END IF 

95 70 LOCATE 7, 
Lk IP egetj‘ TEEN 
97124 Checkfilent 


NT"Zingabe aus Datei? (J 


*zegeinpuTs(ı) 


98.08 CLoSE 1 
9 eK GOSUB backup 

100 v2 OPEN dng+”,balk” FOR INPUT AS mi 
101 Sk OPEN dn$ FOR 1 #2 

102 06 RETURN 


103 bU2 END IR 

104 77 _WHILE NOT Bor 

105 004 LINE INPUte 

106 5 Zeileszeil 

107 Ay2  WEND 

AB yı Lose ı 

109 BAO NeueDetei: 

{10 aN2 OPEN ang FOR ar 

111 91 RETURN 

112 790 Datelfehler: 

113 092 Ffehlers! 

1A PB IF Ffehler=s3 

25 wy ON ERROR Goro 

116 aD0 backup: 

17 yy2 

185) 

19 8R fleneLor(ı) 

120 ih WHILE flen> 

ABl 114 SessINpurs 

12 NK PRINT#2)e85@flen=Plen-32000 

123 082 wEnD 

124 er 

125 584 en, 

126xR PRINTM2,eE; 

127 0:2 END IF 

128 28 

20 

130 &00 sila: 

ae2 1s 

2: LOCATE 2,10 

133 32 PRIN ">>>>>>> Checkie 42 - Der ultimative Checksum 
Merl <<<<<<<” 

334 &R LOCATE 13,2x 

Wie FOR ıT02 


SEN RESUME NEXT 


Ee323 
3756 
238 By4 
139 a1 
140 hı2 
11 Hi 
142 vd 
143 0 
14 18 
145 mE 
146 v5 
147 jL 
148 500 
149 we2 
150 85 
a1 je 
152 192 
153 00 
156 v4 
155 wc2 
156 3F 
157 = 
258 ay 
FR; 
160 vs0 
161 va2 
162 43 
163 xn 
164 040 
165 ac2 
166 &H 
167 96 
168 in 
169 ni 


188 rak 


zug 
218 In 
235 in 
216 754 
27 0 
218 6 
219 798 


Listing 1. Checkie42__V1.1 - ein Basic-Programm 
für alle Programmiersprachen 


Ex 


RINT "<CIRL e> = Programm beenden” 
LOCATE 7,8:PRINT *<F2> = EinfÜgenodus ein” 
LOCATE 7,40:PRINT "<F1> = Checksume ändern" 
PRINT "<F6> = Zeile speichern” 
LOCATE 9,8: PRINT "<F3> = Zeile löschen” 
LOCATE 11,8:PRINT "<F7> = Zeilennunner ändern” 
Berum 
loeschen: 
LOCATE ay,1 
FOR 1=1 TO AnzBZeilen 
PRINT TaB(ax) ;SPACES(LBZeile) 
NEXT i 
FOR 1=0 TO LZeile 
a(1)=32 
NEXT i 
LOCATE zy,1 
PRINT USING "a ##";Zelle 
apos«0 
Ua 
EingabeSunne 
arbe=0 : el 
LOCATE ay,, 
PRINT 
blinken 
Farben 
COLOR Farbe,O 
LOCATE ay,sx-15 
PRINT "Checksunme: * 
LOCATE ay,ux+l 
eseINKEYs 
IF e$ 
COLOR 1,0 
JeASC(e2) 
IF e=5 THEN 
Findeswahr 


THEN blinken 


REM <CTRL e> 
AeanzCaZ+l : REN fertig 
ELSEIP @.135 THEN 
GOSUB NeuZeile 


1P 1>1 THEN 


intel 


REM <BS> 
TE ayısxel ; PRINT *,* 


13 THEN 
IF {»AnsCaZ THEN 1sAnsCsZ+1 : REM <CR> 
IP @>47 AND e<5a THEN 

ane-is 5 REM 0-9 
BISEIF @>64 AND e<91 THEN 

eu0-35 : REN A-Z 
SEIT e>96 AND @<123 THEI 
ere-6i 
zısz 


BEN a-2 


: REM weder nooh 


es(i)=e 


intel 


IF {<=AnzcsZ THEN blinken 


LOCATE sy,sx-15 
PRINT “Checksunne: 


@<>13 OR NeuZeile=0 
LOCATE ay,1:PRINT USING "# # # # ";NeuZeile; 
IC (INPUTS(1)) 
IF e>47 AND e<58 THEN NeuZeile-NeuZeileti0+e-48 
IF Neuzeile > 9999 THEN e=8 
F e=8 THEN NeuZeile-INT(NeuZeile/10) 
wEND 
IF Cheokfile TEEN 
uZeile < Zeile THEN 
WEILE NOT EOr(1) 


AMIGASONDERKEFFIN EI ERW ORLD. COM 


= 


129 


EINGABEHILFE 


220 vor LINE INPUTRL,e$ 
221 cd PRINT#2,e8 

222 128 wen 

223 1 CLOSE 1 : OIOSE 2 

224 Pi COSUB backup 

225 Ka OPEN dn$+".bak” FOR INPUT AS #1 

Pre OPEN dn$ FOR OUTPUT AS #2 

227 3% Zeilest 

228: ov6 mm ır 

229 Yp WEILE (NeuZeile > Zeile) AND (not BOR(1)) 
230 208 LINE IPUTF1,0$ 

231 am PRINTAR2,e$ 

232 37 Zeileszeiler 

233 06 END 

236. oh IF EOR(1) THEN 

235 bıe Lose 1 

236 8 Neuzeile-zeile 

237 un LOCATE 2y,1:PRINT USING "## # #";NeuZeile; 
238 36 Checkfils 

239 ng6 END IE 

240 004 END IF 

ZU yU  Zeilesieuzeile 

222 MD IF 


243 HLO-RETURN 


244 IH Eingebeze 
245 #72) xeos(Anz0sz) 

246 BHO weiter: 

AT Bed oyszysIND(x/LBZeile) :oxsnx+(x MOD 1BZeile) 
4 uy  LOCKTE oy,cx 

249 06 COLOR 0,1 

250 nI_ PRINT OHRS(S(z)); 

SU pi | LOCATE oy,cx 

252 68 IF x>apos THEN apos=x 

253 xx IF Checkfile AND RZok THEN 
254 w& IF Bor(ı) TEEN 

255 086 Gheckfäle= ; CLOSE 1 
64 EISE 

257 ix6 eSeInPUTS(1,1) 

80 mr 

239 uV2 EISE 

260.024 es-InKrs 

261 022 END IF 

262 gp4 IF eß="" THEN weiter 

263 0 COOLER 1,0 

26. ON PRINT CHRS(HC); 

265 OR LOCATE eyscx 

266 a6 sc(e$) 

267 UR2 IF ((e AND 127)<32) OR e=127 THEN Contrelaode 
268 00 IF inode THEN COSUB insert 
269 16 

zr0. Ki 

271.300 

272 882 

273 14 

ara. 092 

275 2p& 


276 Ea2 EISEIF e=29 THEN 

271034  asIBZeile 

278 662 

279 DDk 

280 cha 

261 Reh 

252 982 EISE 

283 Uk& 0070 noürs 

284 WP2 Em Ir 

285 hs xena 

286 52 IF x>=0 AND x<IZeile THEN veiter 
ID x 

288 HB GOTO weiter 

289 KEO noOrs: 

290 AZ IF e=8 THEN 

2 le IF E>O CHEN 

292 Ku6 zer 

293 an LOCATE ay+INT(x/LBZeile) ‚zu+(x MOD IBZeite) 
294 Bb FOR iex TO apos 

295 788 zli)=z(ie2) 

296 da PRINT CHRS(2(1)); 

297 20 IF 1 MOD LBZeile=59 THEN PRINT:PRINT TAB(zx) ; 
298 FV6 NER & 

299 pr z(apos)=32 + PRINT " ” 

300 yR pos-1 

301 ng& 

302 Mi2 27 THEN 

303 Xk4 FOR 1=x 10 epos 

304 c46 a()=a(iH) 

305 5) PRINT CHRS(2(1)); 

306 19 IP 1 MOD LBZeile=59 HEN PRINT:PRINT TAB(ex); 
SOTUe, NET 

B0Bly0L mlapos)=32 : PRINT” * 


309 
310 
Er 
312 
313 
314 
315 
316 
317 
318 


33 


320 
321 
322 
323 
224 
325 
326 
327 
328 
228, 
330 
3 
332 
333 
34 
335 
336 
337 
338 
333 
20 
34 
342 
343 
344, 
345 
346, 
347 
348 
343 
350 
351 
352 
353 
35% 


355. 


356 
357 
358 
359 
360 
361 
362 
38 
2364 


325 


(6) 1988 M&T 
Listing 1. (Schluß) 


7a 
w2 
oI4 
= 

gu2 
513 
“ 
323 
123 
383 
5 
623 
Kg2 
154 
an 

TI2 
bD4 
m2 
214 


120 
012 
304 
as 
264 
En 
Ay 
x 
13 
216 
Fr 
24 
ya 
una 
x 
eo. 
3s2 
22 
va 
wx 
G22 
mv4 
BI6 
3x4 
m 
036 
StB 
D16 
je4 
Er 
Y26 
gs 
sı 
2E 
Kadı 
pa 
AN 
a 
im2 
Re 
pi 
xD2 
ins 
132 
vH 
OR2 
Ra 
No 
v2 
224 
6 
DE 
004 
[1% 
922 
5q 
nt 
Re 
ur 
” 
Di 
ci4 
E3 
82 
SL 


aposzapos-1 
ELSEIF e=129 THEN 
GOSUB EingebeSunne 
x=os(Anzls2) 
ELSEIF e=130 THEN 
inodesimode XOR 1 
LOCATE 7,28 
IF Anode THEN 
PRINT "aus" 
SE 
PRINT ein” 
END IF 
ELSEIR e=131 THEN 
GOSUB 1oeschen 
x=os(Anz0aZ) 
ELSEIF .=134 TEN 
RETURN 
ELSEIF e=5 THEN 
Fände-wehr 
BETU 
END IF 
(6070 weiter 
insert 
IF apos>x THEN 
FOR i=apos TO x STEP -1 
alirt)=2(t) 


epos-L2eile THEN apossapos-1:2(LZeile)=32 
10 apos 

PRINT OHRB(E(1)); 

Fi MOD LBZeile=59 THEN PRINT:PRINT TAB(ex); 
NEXT ı 
LOCATE ay+INT(x/LBZeile) ‚zx+(x MOD LBZeile) 


FOR 


WEILE 2(apos)=32 AND apos>0 
apos=apos-1 
wenD 
IP epos>o THEN 
WHILE a(e)s32 
Ben 
END 
zw IF 
FOR {me 10 apos 
j=(1-6) MOD Anzfak 
11-0) MOD Anzfak 
((2(3) AD 127)-32)*Faktor(, 
beb+((2(1) AND 127)-32)*Faktor( 
nam 4 
os(4 
es(5) 
FZoks 
END IF 
RETURN 
Vebernehne; 


Ei] 
x) 


+Zeile-INT( (a+Zeile)/62)*62 
sb+Zeile-INT((b+Zeile) /62)x62 
'0s(1)=05(4)) AND (os(2)=es(5)) 


FOR 1=0 TO apos 
PRINT#2,CHR$(2(1)); 
NEXT 1 
PRINT#2, "" 
leszeiler1 


Zeil 


fertig: 
IF Cheoki 
WEILE NOT EOF(1) 
LINE INPUT#1,e$ 
PRINTF2,e$ 
WEND 
CLOSE 1 
END IF 
CLOsE 2 
aus 
LOCATE 12,35 
PRINT FERTIG III” 
LOCATE 20,1 
IF FR6<>O THEN 
INT TACHTUNGILT "5 
PRINT FF65” Zeile(n) wurde(n) ungeprüft gespeichert." 
END IF 
RETURN 
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HiSoft-Basic- 
Compiler 

Mit HiSoft Basic gibt es 
endlich auch einen Basic- 
Compiler für den Amiga. 
Der interaktive Editier-, 
Kompilier- und Laufzeit- 
zyklus entspricht dem eines 
Interpreters. 

Der integrierte Editor erlaubt 
eine komfortable Eingabe 
HiSoft Basic unterstützt die 
Eigenschaften des Amiga mit 
Fer 
Sprite-Handling und Maschi 
nenzugriffen während des 
Gebrauchs von Bibliotheken 
Es ist voll kompatibel mit 
Amiga-Basic, andere Stan- 
darddialekte für den PC, wie 
2.B. Microsoft QuickBasic, 
und den Atari ST können mit 
geringen Modifikationen 
kompiliert werden, Reku 


INN 


’ N 
Markt&Technik 


Zeitschriften . Bücher 


ern, Grafik-Kommandos, 


Unterprogramme und Funktio 
nen sind möglich. 

Eine Anzahl strukturierter 
Ausdrücke wie z.B. 
WHILE...WEND, DO...LOOP 
UNTIL und SELECT...CASE 
lassen Sie jede Programmier 


hürde meistern. Die Größe von 


Variablen ist nicht beschränkt 
Aussagekräftige Fehler 

meldungen und Korrel 
lichkeiten trage 
tablen Handt 
Hardware-Anforderungen: 
Amiga 500, 1000 oder 2000 
mit Kickstart 1.2 oder höher 
31,'-Diskette, 


(sFr 161 


/8S 1790,-*) 


Devpac 

Assembler 2.0 

Devpac 2.0 ist ein Entwick- 
lungspaket für den Amiga 
mit komfortablem Editor/ 
Assembler, symbolischem 
Debugger und Linker zum 
Einbinden von Hochsprache- 
Modulen. 

GenAm ist ein 68000er-Makro- 
assembler mit integriertem 
Bildschirmeditor, der bis 
75.000 Zeilen pro Minute 
mblieren kann. De 
mbler erzeugt sow« 
linkbaren als auch direkt aus- 
führbaren Code. Er unterstützt 
lokale s, die Signifikanz 
zu 127 Zeichen 


zu 


Ds 222322" --- 


U Devpac-Assembler 


Name 


INFO-COUPON 


Bitte senden Sie mir weiteres Informationsmaterial zu 3 
Q HiSoft-Basic-Compiler 


Software - Schulung 


Makros können bis zu 36 Para- 
einhalten und - Rekur- 
begriffen - so tief 
verschachtelt werden, wie 
Speicherplatz vorhanden ist 
MonAm, der Debugger, 
erlaubt das Setzen von 
Breakpoints, das Dis 
blieren auf Diskette und nocl 
weitere Features, die das 
Debuggen zum Vergnügen 
machen 
Hardware-Anforderungen: 
Amiga 500, 1000 oder 2000 
mit mindestens 512 Kbyte, 
ein Diskettenlaufwerk. 
3'/,-Diskette, 

Bestell-Nr. 54131 

DM 149,-* 

(sFr 135,-*/öS 1490,-") 
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Eines der besten Programme 
seiner Art für den Amiga 


SuperED C 
Multitasking-fähiger Editor als 
Programmierumgebung für 
den Aztec-C-Compiler (V 3.6). 
Bestell-Nr. 54139 

DM 39,-* 

(sFr 35,-*/68 390,—*) 


" Unverbindliche Preisempfehlung 


Die nächste Prüfung ist 
gerett: ie neuen Lernpro: 
ramme »Spielend lernen« für 
Ihren Amiga ersetzen stupide 
Paukerel durch Abenteuer, 
Spaß und Quiz, Trockenes 
Schulwissen wird spannend 
aufbereitet und einprägsam 
vermittelt. Jedes Programm 
hat einen Lernteil und ein Quiz 
oder Spiel zur Überprüfung 
des neu erworbenen Wissens 


‚Jedes Programm nur 


“Unverbindliche Preisempfehlung 
Markt&Technik-Bücher und 
-Software erhalten Sie bei Ihrem 
Buchhändler, in Computer- 
Fachgeschäften und in den 
Fachabteilungen der Warenhäuser. 


Erdkunde I 
Bundesrepublik und DDR 
Bestell-Nr. 38774 


Erdkunde Il - Vereinigte 
Staaten von Amerika 
Bestell-Nr. 3877 


213/00; 


| INFO-COUPON 


Bitte senden Sie mir Ihr Gesamtverzeichnis 
mit über 500 aktuellen Computerbüchern und Software. 
U Ich bin Fachhändler 


Buch- und 


. 
te et, 


Aalen 


macht Lernen Spaß! 


meterschnube klnnen 


\ int \ \l 
— 


Mathematik | - Geometrie 
Bestell-Nr, 38777 
Mathematik Il - Algebra 
Bestell-Nr, 38778 

Physik | - Mechanik, Wärme- 
lehre, Optik 

Bestell-Nr, 38779 

Englisch I 

Bestell-Nr. 38775 

In Vorbereitung sind 
Deutsch | (Grammatik) 
und Mathematik Ill (Bruch- 
rechnen) 


a 


Markt&fechnik 


Zeitschriften Bücher 
Software - Schulung 


